(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    176964,       4128]
NotebookOptionsPosition[    172890,       4004]
NotebookOutlinePosition[    173231,       4019]
CellTagsIndexPosition[    173188,       4016]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"W", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"-", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jmt", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", "W", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Length", "[", "jmt", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"idx", "=", "1"}], ",", 
    RowBox[{"idx", "<=", 
     RowBox[{"Length", "[", "jmt", "]"}]}], ",", 
    RowBox[{"idx", "++"}], ",", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"N", "[", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"k", "=", "1"}], 
         RowBox[{"Length", "[", "W", "]"}]], 
        RowBox[{"Exp", "[", 
         RowBox[{"2", "Pi", "*", "I", "*", 
          RowBox[{
           RowBox[{"Dot", "[", 
            RowBox[{
             RowBox[{"W", "[", 
              RowBox[{"[", "k", "]"}], "]"}], ",", 
             RowBox[{"jmt", "[", 
              RowBox[{"[", "idx", "]"}], "]"}]}], "]"}], "/", 
           RowBox[{"Length", "[", "W", "]"}]}]}], "]"}]}], "]"}], "]"}], 
     ";"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.52951600275605*^9, 3.529516144063133*^9}, {
  3.5295161826733413`*^9, 3.529516231725147*^9}, {3.5295164584461145`*^9, 
  3.5295165295601816`*^9}, {3.5295165963780036`*^9, 3.5295166831809683`*^9}, {
  3.5295168123703575`*^9, 3.5295170368221955`*^9}, {3.529517099302769*^9, 
  3.5295172026976833`*^9}, {3.5295172594209275`*^9, 3.5295173697102356`*^9}, {
  3.5295174368000727`*^9, 3.5295174400312576`*^9}, {3.5295175670595236`*^9, 
  3.5295176209806075`*^9}, {3.529517656246625*^9, 3.529517688822488*^9}, {
  3.529517757978443*^9, 3.5295178044421005`*^9}, {3.5295178407961807`*^9, 
  3.529517973230755*^9}, {3.5295180100198593`*^9, 3.529518012143981*^9}, {
  3.529518056864539*^9, 3.529518108303481*^9}, {3.530541284800674*^9, 
  3.530541309766102*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.5305413685164623`*^9}],

Cell[BoxData[
 RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368518462*^9}],

Cell[BoxData[
 RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.5305413685214624`*^9}],

Cell[BoxData["15.`"], "Print",
 CellChangeTimes->{3.530541368522463*^9}],

Cell[BoxData[
 RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368525463*^9}],

Cell[BoxData[
 RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368527463*^9}],

Cell[BoxData[
 RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{3.530541368529463*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "n", ",", "set", ",", "idx", ",", "jdx", ",", "kdx", ",", "WTR", ",", "WTL",
    ",", "WBR", ",", "WBL", ",", "EXP2PIWTRS", ",", "EXP2PIWTLS", ",", 
   "EXP2PIWBRS", ",", "EXP2PIWBLS", ",", "FSTF00", ",", "FSTF0COSK", ",", 
   "H"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"set", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"idx", "=", "1"}], ",", 
    RowBox[{"idx", "<", 
     SuperscriptBox["n", "2"]}], ",", 
    RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"set", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"set", ",", 
        RowBox[{"{", 
         RowBox[{
          FractionBox[
           RowBox[{"idx", "-", 
            RowBox[{"Mod", "[", 
             RowBox[{"idx", ",", "n"}], "]"}]}], "n"], ",", 
          RowBox[{"Mod", "[", 
           RowBox[{"idx", ",", "n"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"set", "=", 
      RowBox[{"Prepend", "[", 
       RowBox[{"set", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"idx", "-", 
             RowBox[{"Mod", "[", 
              RowBox[{"idx", ",", "n"}], "]"}]}], "n"]}], ",", 
          RowBox[{"-", 
           RowBox[{"Mod", "[", 
            RowBox[{"idx", ",", "n"}], "]"}]}]}], "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WTR", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WTR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "1"}], "]"}],
          "]"}], "=", "jdx"}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WTR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "2"}], "]"}],
          "]"}], "=", 
        RowBox[{
         RowBox[{"-", "2"}], "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WTL", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WTL", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "1"}], "]"}],
          "]"}], "=", 
        RowBox[{"-", "jdx"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WTL", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "-", "jdx", "+", "1"}], ",", "kdx", ",", "2"}], "]"}],
          "]"}], "=", 
        RowBox[{
         RowBox[{"-", "2"}], "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WBR", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WBR", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"-", "jdx"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WBR", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"2", "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WBL", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "/", "2"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"WBL", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "1"}], "]"}], "]"}], "=", "jdx"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"WBL", "[", 
         RowBox[{"[", 
          RowBox[{"jdx", ",", "kdx", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{"2", "*", "kdx", "*", 
         RowBox[{"jdx", "/", "n"}]}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWTRS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{"-", 
          RowBox[{"n", "^", "2"}]}]}], ",", " ", 
        RowBox[{"idx", "<", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{
         RowBox[{"idx", "++"}], "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"EXP2PIWTRS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "=", 
               RowBox[{
                RowBox[{"EXP2PIWTRS", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
                "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"WTR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"EXP2PIWTRS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
               RowBox[{
                RowBox[{"EXP2PIWTRS", "[", 
                 RowBox[{"[", 
                  RowBox[{"ldx", ",", 
                   RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"WTR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "]"}]}], 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWTLS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWTLS", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"EXP2PIWTLS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WTL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWTLS", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"EXP2PIWTLS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WTL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWBRS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBRS", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"EXP2PIWBRS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBRS", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"EXP2PIWBRS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBR", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EXP2PIWBLS", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "1"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", "1"}], ",", 
      RowBox[{"kdx", "<=", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBLS", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"EXP2PIWBLS", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"EXP2PIWBLS", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"EXP2PIWBLS", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"WBL", "[", 
                    RowBox[{"[", 
                    RowBox[{"jdx", ",", "kdx"}], "]"}], "]"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FSTF00", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "0"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", "0"}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"kdx", "=", 
       RowBox[{
        RowBox[{"-", "n"}], "/", "2"}]}], ",", 
      RowBox[{"kdx", "\[LessEqual]", 
       RowBox[{"n", "/", "2"}]}], ",", 
      RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"idx", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
        RowBox[{"idx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
        RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"FSTF00", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], "=",
               
              RowBox[{
               RowBox[{"FSTF00", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"ldx", "=", "1"}], ",", 
             RowBox[{"ldx", "<=", 
              RowBox[{
               SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
             RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"FSTF00", "[", 
               RowBox[{"[", 
                RowBox[{"ldx", ",", 
                 RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"FSTF00", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
               RowBox[{"Exp", "[", 
                RowBox[{"2", "*", "Pi", "*", "I", "*", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}]}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FSTF0K", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}], ",", 
     RowBox[{"{", 
      SuperscriptBox["n", "2"], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"jdx", "=", "n"}], ",", 
    RowBox[{"jdx", "\[GreaterEqual]", 
     RowBox[{"-", "n"}]}], ",", 
    RowBox[{"jdx", "--"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"jdx", "==", "0"}], ",", 
       RowBox[{"jdx", "--"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"kdx", "=", "0"}], ",", 
       RowBox[{"kdx", "\[LessEqual]", "0"}], ",", 
       RowBox[{"kdx", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"idx", "=", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"n", "^", "2"}]}], "+", "1"}]}], ",", " ", 
         RowBox[{"idx", "<=", 
          RowBox[{
           RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
         RowBox[{"idx", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "+", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"FSTF0K", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
               "=", 
               RowBox[{
                RowBox[{"FSTF0K", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"ldx", "-", "idx"}], ",", "ldx"}], "]"}], "]"}], 
                "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "jdx"}], "}"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
           
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"ldx", "=", "1"}], ",", 
              RowBox[{"ldx", "<=", 
               RowBox[{
                SuperscriptBox["n", "2"], "-", "idx"}]}], ",", 
              RowBox[{"ldx", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"FSTF0K", "[", 
                RowBox[{"[", 
                 RowBox[{"ldx", ",", 
                  RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "=", 
               RowBox[{
                RowBox[{"FSTF0K", "[", 
                 RowBox[{"[", 
                  RowBox[{"ldx", ",", 
                   RowBox[{"ldx", "+", "idx"}]}], "]"}], "]"}], "+", 
                RowBox[{"Exp", "[", 
                 RowBox[{"2", "*", "Pi", "*", "I", "*", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"set", "[", 
                    RowBox[{"[", 
                    RowBox[{"idx", "+", 
                    SuperscriptBox["n", "2"]}], "]"}], "]"}], ".", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "jdx"}], "}"}]}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ")"}], "*", 
                    RowBox[{"(", 
                    RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], "]"}]}]}]}], 
             "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], 
      "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"REM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"IMP6", "=", 
    RowBox[{"N", "[", 
     RowBox[{"Im", "[", 
      RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<REM1\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REM1", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REM2\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REM2", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REM3\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REM3", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REM4\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REM4", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REM5\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REM5", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REM6\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REM6", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REP1\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REP1", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REP2\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REP2", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REP3\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REP3", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REP4\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REP4", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REP5\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REP5", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<REP6\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"REP6", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMM1\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMM1", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMM2\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMM2", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMM3\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMM3", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMM4\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMM4", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMM5\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMM5", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMM6\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMM6", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMP1\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMP1", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMP2\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMP2", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMP3\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMP3", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMP4\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMP4", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMP5\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMP5", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\"\<IMP6\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"IMP6", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BITWISEAND", "=", 
   RowBox[{
   "REM1", "*", "REM2", "*", "REM3", "*", "REM4", "*", "REM5", "*", "REM6", 
    "*", "REP1", "*", "REP2", "*", "REP3", "*", "REP4", "*", "REP5", "*", 
    "REP6", "*", "IMP1", "*", "IMP2", "*", "IMP3", "*", "IMP4", "*", "IMP5", 
    "*", "IMP6", "*", "IMM1", "*", "IMM2", "*", "IMM3", "*", "IMM4", "*", 
    "IMM5", "*", "IMM6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "BITWISEAND", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"BITWISEAND", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", 
       RowBox[{"k", "++"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "k", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"k", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Length", "[", "BITWISEAND", "]"}], "^", "2"}], ")"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BITWISEAND", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "12"}], ")"}]}]}], ",", 
     RowBox[{"Print", "[", "i", "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H", "=", 
   RowBox[{"N", "[", 
    RowBox[{
    "EXP2PIWTRS", "+", "EXP2PIWTLS", "+", "EXP2PIWBRS", "+", "EXP2PIWBLS", 
     "+", "FSTF00", "+", "FSTF0K"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "H", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "H", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"FSTF0COSK", "=", 
     RowBox[{"2", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"k", "=", "1"}], "n"], 
       RowBox[{"(", GridBox[{
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]},
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]},
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]},
          {
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"n", "-", "2"}], ")"}], "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"1", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}], 
           RowBox[{"Cos", "[", 
            FractionBox[
             RowBox[{"2", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"0", "*", "k"}], ")"}]}], 
             RowBox[{
              RowBox[{"2", 
               SuperscriptBox["n", "2"]}], "+", 
              RowBox[{"3", "n"}], "+", "1"}]], "]"}]}
         }], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWTRS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWTLS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWBRS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", "EXP2PIWBLS", "]"}], "]"}], 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"MatrixForm", "[", 
       RowBox[{
       "EXP2PIWTRS", "+", "EXP2PIWTLS", "+", "EXP2PIWBRS", "+", "EXP2PIWBLS", 
        "+", "FSTF00", "+", "FSTF0K"}], "]"}], "]"}]}]}], "*)"}]}]}], "Input",\

 CellChangeTimes->{{3.530432219350487*^9, 3.530432297919981*^9}, {
   3.5304323494719296`*^9, 3.530432364370782*^9}, {3.5304323982287183`*^9, 
   3.5304324400041075`*^9}, {3.5304324701348314`*^9, 3.530432480886446*^9}, 
   3.5304445244853005`*^9, {3.530444658121944*^9, 3.5304447188104153`*^9}, 
   3.5304448027352157`*^9, {3.530444834423028*^9, 3.5304448659038286`*^9}, {
   3.530444903016951*^9, 3.5304449142815957`*^9}, {3.5304449637394247`*^9, 
   3.530445046393152*^9}, 3.5304451075116477`*^9, {3.5304451691061707`*^9, 
   3.5304451696732035`*^9}, {3.5304452092484665`*^9, 3.5304452850148*^9}, {
   3.5304453152635307`*^9, 3.530445473339572*^9}, {3.5304455117817707`*^9, 
   3.5304455232624273`*^9}, {3.530445557487385*^9, 3.5304455722072268`*^9}, 
   3.5304456144816446`*^9, {3.530445997269539*^9, 3.5304460088552017`*^9}, {
   3.5304460661124763`*^9, 3.5304461689153566`*^9}, {3.530446241478507*^9, 
   3.5304463449934273`*^9}, {3.5304463763212194`*^9, 3.530446512792025*^9}, {
   3.5304481630134125`*^9, 3.530448184678652*^9}, {3.5304482475842495`*^9, 
   3.530448271457615*^9}, {3.53044834532384*^9, 3.530448525897168*^9}, {
   3.530448672663563*^9, 3.5304487924354134`*^9}, {3.53044882839647*^9, 
   3.530448893190176*^9}, {3.5304489284711943`*^9, 3.5304489342955275`*^9}, {
   3.530448992353848*^9, 3.5304490309490557`*^9}, 3.5304491002540197`*^9, {
   3.530449159761423*^9, 3.5304491773424287`*^9}, {3.530449295602193*^9, 
   3.5304494092226915`*^9}, {3.5304494421995773`*^9, 3.530449452151147*^9}, {
   3.530449495264613*^9, 3.5304495041451206`*^9}, {3.53044953769904*^9, 
   3.5304495653636227`*^9}, {3.5304496650973268`*^9, 3.530450026302986*^9}, {
   3.530450071326562*^9, 3.53045016168573*^9}, {3.530450243490409*^9, 
   3.5304502640455847`*^9}, {3.530450306014985*^9, 3.5304503386228504`*^9}, {
   3.5304615886043124`*^9, 3.53046159345959*^9}, {3.530462045046419*^9, 
   3.5304620696158247`*^9}, {3.5304621805451694`*^9, 3.5304621966430902`*^9}, 
   3.530462374711275*^9, {3.5304627503657613`*^9, 3.5304628524506*^9}, {
   3.530462898618241*^9, 3.5304629417647085`*^9}, {3.5304629832090793`*^9, 
   3.530462985121188*^9}, {3.5304631634503884`*^9, 3.5304631760081067`*^9}, {
   3.530463219884616*^9, 3.530463276983882*^9}, {3.5304638742210417`*^9, 
   3.530463933766448*^9}, {3.530464926548232*^9, 3.5304649527227287`*^9}, 
   3.5304649957731915`*^9, {3.5304651585285006`*^9, 3.5304651780276155`*^9}, 
   3.530466204402321*^9, {3.5304676612806497`*^9, 3.5304676941135273`*^9}, {
   3.5304677313746586`*^9, 3.530467740103158*^9}, {3.5304677905370426`*^9, 
   3.5304678516025352`*^9}, {3.5304679027094584`*^9, 3.53046794574292*^9}, {
   3.5304680275535994`*^9, 3.5304680387522397`*^9}, {3.530468927677083*^9, 
   3.530468934212457*^9}, {3.530468964769205*^9, 3.5304690223634987`*^9}, {
   3.5304690951866646`*^9, 3.530469107892391*^9}, {3.5304713631493845`*^9, 
   3.5304713701417847`*^9}, {3.5304720922630873`*^9, 
   3.5304720924770994`*^9}, {3.5304735576689034`*^9, 3.530473569964607*^9}, {
   3.530473619863461*^9, 3.530473669081276*^9}, {3.530473703674255*^9, 
   3.530473713159797*^9}, 3.530473756309265*^9, {3.53047380710017*^9, 
   3.5304738796873217`*^9}, {3.5304742572029147`*^9, 
   3.5304742898887844`*^9}, {3.5304746424989524`*^9, 3.530474684787371*^9}, {
   3.5304752512267694`*^9, 3.530475263243457*^9}, {3.5304763035249577`*^9, 
   3.53047648976361*^9}, {3.5304766052712164`*^9, 3.530476657177185*^9}, {
   3.530476689274021*^9, 3.530476731197419*^9}, {3.5304800643710656`*^9, 
   3.5304800912256017`*^9}, {3.530480134499077*^9, 3.5304801414574747`*^9}, {
   3.5304801822578087`*^9, 3.530480223669177*^9}, {3.5304802687727566`*^9, 
   3.5304803469042253`*^9}, {3.5304803971330986`*^9, 
   3.5304805486987677`*^9}, {3.530480679792266*^9, 3.530480720985622*^9}, {
   3.530481569143134*^9, 3.5304816458065186`*^9}, {3.5304816816015663`*^9, 
   3.5304817457812366`*^9}, {3.5304817925899143`*^9, 3.530481909334592*^9}, {
   3.530481943271533*^9, 3.5304819448556232`*^9}, {3.530481978672558*^9, 
   3.5304820262762804`*^9}, {3.5304820569310336`*^9, 
   3.5304821001645064`*^9}, {3.5304821606919684`*^9, 
   3.5304822296489124`*^9}, {3.530482262232776*^9, 3.5304824469523416`*^9}, {
   3.5305132977169046`*^9, 3.53051330533434*^9}, {3.530528331314777*^9, 
   3.5305283659397573`*^9}, {3.5305285830341744`*^9, 3.530528610743759*^9}, {
   3.530528668871084*^9, 3.5305287108264837`*^9}, {3.530528745442464*^9, 
   3.5305287614963818`*^9}, {3.5305288065389585`*^9, 3.53052883454456*^9}, {
   3.5305289929476204`*^9, 3.5305290027461805`*^9}, {3.530529056888277*^9, 
   3.5305290589883976`*^9}, {3.5305290967855597`*^9, 3.530529117654753*^9}, {
   3.5305295617241526`*^9, 3.530529682998089*^9}, {3.530530327873974*^9, 
   3.5305303704094067`*^9}, {3.530530444634652*^9, 3.530530516847782*^9}, {
   3.530530729025918*^9, 3.530530747299964*^9}, {3.5305308978675756`*^9, 
   3.530530934362663*^9}, {3.5305338629291673`*^9, 3.5305338643762503`*^9}, 
   3.5305339050715775`*^9, {3.530533979873856*^9, 3.530534016405946*^9}, {
   3.5305340804816103`*^9, 3.5305340963915205`*^9}, {3.5305341336396513`*^9, 
   3.530534133769658*^9}, {3.530534706592422*^9, 3.530534725051478*^9}, {
   3.530534966499288*^9, 3.530534975243788*^9}, {3.530535054554324*^9, 
   3.5305350893173127`*^9}, {3.5305373725549064`*^9, 3.5305374052637773`*^9}, 
   3.5305374594658775`*^9, {3.530537521542428*^9, 3.530537547703924*^9}, {
   3.5305376208481083`*^9, 3.5305376210031166`*^9}, {3.5305376809205437`*^9, 
   3.5305376990855827`*^9}, {3.530537755624817*^9, 3.5305378150752172`*^9}, {
   3.5305380024559345`*^9, 3.5305380124515066`*^9}, {3.5305380452913847`*^9, 
   3.5305380458534164`*^9}, {3.530538309823515*^9, 3.5305383263254585`*^9}, {
   3.5305384756419992`*^9, 3.5305384870216503`*^9}, {3.5305385497622385`*^9, 
   3.530538665401853*^9}, {3.530538737963003*^9, 3.530539012306695*^9}, {
   3.5305390794375343`*^9, 3.530539207352851*^9}, {3.5305392853233104`*^9, 
   3.5305393658879185`*^9}, 3.5305395458252106`*^9, {3.530539594915018*^9, 
   3.5305395967581234`*^9}, {3.530539675111605*^9, 3.5305396822310123`*^9}, {
   3.5305398957402244`*^9, 3.530539897026298*^9}, {3.5305399749757566`*^9, 
   3.530540028201801*^9}, {3.530540128070513*^9, 3.530540194166293*^9}, {
   3.530540232679496*^9, 3.5305402635272603`*^9}, {3.5305409193407707`*^9, 
   3.53054092771625*^9}, {3.530541006856776*^9, 3.5305410202995453`*^9}, {
   3.5305411062654624`*^9, 3.5305412276194034`*^9}, {3.5305413791930733`*^9, 
   3.5305414174392605`*^9}, {3.530541464508953*^9, 3.530541574490243*^9}, {
   3.530541628522334*^9, 3.5305416317675195`*^9}, 3.530541699311383*^9, 
   3.530541807798588*^9, {3.5305418487149277`*^9, 3.530541934100812*^9}, 
   3.530542743712119*^9, 3.530543340688264*^9, 3.5305439300909758`*^9, {
   3.5305440297376757`*^9, 3.5305440557001605`*^9}, 3.5305444790323734`*^9, 
   3.530544638851515*^9, {3.5305446845081263`*^9, 3.5305446879213214`*^9}, 
   3.5305447181750517`*^9, {3.5305467299491186`*^9, 3.530546730344141*^9}, 
   3.5305495005095854`*^9, 3.5305540648766527`*^9, 3.530591904374948*^9, {
   3.53060558560947*^9, 3.5306055873195677`*^9}, 3.5306835156468134`*^9, 
   3.530688552524906*^9, {3.530688658451965*^9, 3.5306886657603827`*^9}, {
   3.530696028050482*^9, 3.5306960640435405`*^9}, 3.530696106750983*^9, {
   3.5306971144956226`*^9, 3.5306971275793715`*^9}, {3.5306971817674704`*^9, 
   3.530697207831961*^9}, {3.530697259719929*^9, 3.5306972637171574`*^9}, {
   3.530698530511614*^9, 3.5306985673677225`*^9}, {3.530783464458558*^9, 
   3.5307835016396847`*^9}, 3.5307844592614574`*^9},
 FontSize->18],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.5306158458283205`*^9, 3.530683552632929*^9, 3.5306960666896915`*^9, 
   3.5306961114642525`*^9, 3.5306971307525525`*^9, {3.5306971959152794`*^9, 
   3.5306972108581343`*^9}, 3.5306972652092433`*^9, {3.5306985327187405`*^9, 
   3.530698568738801*^9}, {3.530783479712431*^9, 3.5307835048068657`*^9}, 
   3.530784460300517*^9}],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{
  3.5306158458283205`*^9, 3.530683552632929*^9, 3.5306960666896915`*^9, 
   3.5306961114642525`*^9, 3.5306971307525525`*^9, {3.5306971959152794`*^9, 
   3.5306972108581343`*^9}, 3.5306972652092433`*^9, {3.5306985327187405`*^9, 
   3.530698568738801*^9}, {3.530783479712431*^9, 3.5307835048068657`*^9}, 
   3.5307844603605204`*^9}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{
  3.5306158458283205`*^9, 3.530683552632929*^9, 3.5306960666896915`*^9, 
   3.5306961114642525`*^9, 3.5306971307525525`*^9, {3.5306971959152794`*^9, 
   3.5306972108581343`*^9}, 3.5306972652092433`*^9, {3.5306985327187405`*^9, 
   3.530698568738801*^9}, {3.530783479712431*^9, 3.5307835048068657`*^9}, 
   3.5307844603815217`*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.5306158447642603`*^9, 3.5306835525199223`*^9, 3.5306960666666903`*^9, 
   3.5306961114442515`*^9, 3.5306971307325516`*^9, {3.5306971960002847`*^9, 
   3.5306972109441395`*^9}, 3.530697265307249*^9, {3.530698532846748*^9, 
   3.5306985688418064`*^9}, {3.5307834797654333`*^9, 3.53078350487387*^9}, 
   3.530784460416524*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{
  3.5306158447642603`*^9, 3.5306835525199223`*^9, 3.5306960666666903`*^9, 
   3.5306961114442515`*^9, 3.5306971307325516`*^9, {3.5306971960002847`*^9, 
   3.5306972109441395`*^9}, 3.530697265307249*^9, {3.530698532846748*^9, 
   3.5306985688418064`*^9}, {3.5307834797654333`*^9, 3.53078350487387*^9}, 
   3.53078446053053*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{
  3.5306158447642603`*^9, 3.5306835525199223`*^9, 3.5306960666666903`*^9, 
   3.5306961114442515`*^9, 3.5306971307325516`*^9, {3.5306971960002847`*^9, 
   3.5306972109441395`*^9}, 3.530697265307249*^9, {3.530698532846748*^9, 
   3.5306985688418064`*^9}, {3.5307834797654333`*^9, 3.53078350487387*^9}, 
   3.5307844605545316`*^9}],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{
  3.5306158447642603`*^9, 3.5306835525199223`*^9, 3.5306960666666903`*^9, 
   3.5306961114442515`*^9, 3.5306971307325516`*^9, {3.5306971960002847`*^9, 
   3.5306972109441395`*^9}, 3.530697265307249*^9, {3.530698532846748*^9, 
   3.5306985688418064`*^9}, {3.5307834797654333`*^9, 3.53078350487387*^9}, 
   3.5307844607085404`*^9}]
}, Open  ]],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.5306158458283205`*^9, 3.530683552632929*^9, 3.5306960666896915`*^9, 
   3.5306961114642525`*^9, 3.5306971307525525`*^9, {3.5306971959152794`*^9, 
   3.5306972108581343`*^9}, 3.5306972652092433`*^9, {3.5306985327187405`*^9, 
   3.530698568738801*^9}, {3.530783479712431*^9, 3.5307835048068657`*^9}, 
   3.530784460822547*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"15.`", 
      RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "15.`", 
      RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "15.`", 
      RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "15.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5306158458283205`*^9, 3.530683552632929*^9, 3.5306960666896915`*^9, 
   3.5306961114642525`*^9, 3.5306971307525525`*^9, {3.5306971959152794`*^9, 
   3.5306972108581343`*^9}, 3.5306972652092433`*^9, {3.5306985327187405`*^9, 
   3.530698568738801*^9}, {3.530783479712431*^9, 3.5307835048068657`*^9}, 
   3.530784460845548*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "M", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"7", ",", 
     RowBox[{"{", 
      RowBox[{"n", "^", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "^", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"idx", "=", 
    RowBox[{"-", 
     RowBox[{"n", "^", "2"}]}]}], ",", " ", 
   RowBox[{"idx", "<", 
    RowBox[{
     RowBox[{"n", "^", "2"}], "-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"idx", "++"}], "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<idx = \>\"", ",", "idx"}], "]"}], "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"idx", "<", "0"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"jdx", "=", "1"}], ",", 
        RowBox[{"jdx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "+", "idx"}]}], ",", 
        RowBox[{"jdx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"jdx", "-", "idx"}], ",", "jdx"}], "]"}], "]"}], "=", 
          "idx"}], ";"}]}], "\[IndentingNewLine]", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"jdx", "=", "1"}], ",", 
        RowBox[{"jdx", "<=", 
         RowBox[{
          RowBox[{"n", "^", "2"}], "-", "idx"}]}], ",", 
        RowBox[{"jdx", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", 
            RowBox[{"jdx", ",", 
             RowBox[{"jdx", "+", "idx"}]}], "]"}], "]"}], "=", "idx"}], 
         ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "M", "]"}]}], "Input",
 CellChangeTimes->{{3.530478212733158*^9, 3.53047829703998*^9}, {
   3.530478365434892*^9, 3.5304784982154865`*^9}, {3.5304785821382866`*^9, 
   3.53047862590779*^9}, {3.5304787186070924`*^9, 3.5304787589844017`*^9}, {
   3.5304787950334635`*^9, 3.5304788997334523`*^9}, {3.530478967039302*^9, 
   3.5304789737116833`*^9}, {3.5304790494030128`*^9, 
   3.5304790860271077`*^9}, {3.53047912750148*^9, 3.53047917628627*^9}, {
   3.5304792164325666`*^9, 3.5304792499444833`*^9}, {3.5304793965738697`*^9, 
   3.5304794003410854`*^9}, {3.5304795104173813`*^9, 
   3.5304795541468825`*^9}, {3.530479605979847*^9, 3.5304796247179193`*^9}, {
   3.530479656670747*^9, 3.5304796913187284`*^9}, {3.5304797618577633`*^9, 
   3.5304798031471243`*^9}, {3.530479877966404*^9, 3.5304799125903845`*^9}, {
   3.5304799433121414`*^9, 3.5304799495845003`*^9}, {3.5304799834334364`*^9, 
   3.5304799973372316`*^9}, 3.5304806118853817`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "2", "3"},
     {
      RowBox[{"-", "1"}], "0", "1", "2"},
     {
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0", "1"},
     {
      RowBox[{"-", "3"}], 
      RowBox[{"-", "2"}], 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.530479950431549*^9, {3.530479984916521*^9, 3.530479998955324*^9}, 
   3.5304806129144406`*^9, 3.5304815557973704`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{
   "EXP2PIWTRS", "+", "EXP2PIWTLS", "+", "EXP2PIWBRS", "+", "EXP2PIWBLS"}], 
   "]"}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"8.`", 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"5.12920428618241`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "8.`", 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "8.`", 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"5.12920428618241`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"6.330704256005836`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "8.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5305425734513807`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5305425882562275`*^9, 3.5305426758292365`*^9}, {
   3.5305431413688636`*^9, 3.5305431922107716`*^9}, {3.53054350949992*^9, 
   3.5305435295010633`*^9}, {3.530543593187706*^9, 3.530543593534726*^9}, {
   3.5305436840019007`*^9, 3.530543688207141*^9}, {3.530543731619624*^9, 
   3.5305437605452785`*^9}, {3.530543892024799*^9, 3.5305439117069244`*^9}, {
   3.5305440139057703`*^9, 3.530544019609096*^9}, {3.530544580475176*^9, 
   3.5305445869365454`*^9}, 3.530545435792097*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602087490389*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 263, 393, 522, 650, 777, 903, 1028, 1152, 1275, 1397, 1518, 
      1639, 1760, 1881, 2002, 2123, 2244, 2365, 2486, 2607, 2728, 2849, 2970, 
      3091, 3212, 3333, 3454, 3575, 3696, 3817, 3938, 4059, 4180, 4301, 4422, 
      4543, 4664, 4785, 4906, 5027, 5148, 5269, 5390, 5511, 5632, 5753, 5874, 
      5995, 6116, 6237, 6358, 6479, 6600, 6721, 6842, 6963, 7084, 7205, 7326, 
      7447, 7568, 7689, 7810, 7931, 8052, 8173, 8294, 8415, 8536, 8657, 8778, 
      8899, 9020, 9141, 9262, 9383, 9504, 9625, 9746, 9867, 9988, 10109, 
      10230, 10351, 10472, 10593, 10714, 10835, 10956, 11077, 11198, 11319, 
      11440, 11561, 11682, 11803, 11924, 12045, 12166, 12287, 12408, 12529, 
      12650, 12771, 12892, 13013, 13134, 13255, 13376, 13497, 13618, 13739, 
      13860, 13981, 14102, 14223, 14344, 14465, 14586, 14707, 14828, 14949, 
      15070, 15191, 15312, 15433, 15554, 15675, 15796, 15917, 16038, 16159, 
      16281, 16404, 16528, 16653, 16779, 16906, 17034, 17163, 17293, 17424, 
      17556}, CompressedData["
1:eJzN3Ncj12EUBvAvaUhoaVilLUokmwbtLUVR9AuVBmXvrYF00R9cl6/f7zve
cc55unovP+/1Oc9zCmL9zbFkz/P+NHle0r83KXlLytZt23ek7kzblZ6RuXvP
3n37sw4cPHQ4Oyc3L//I0YJjx0+cPHX6TOHZouJz50sulJZdLL9UUVlVXVNb
V99w+crVa41N12/cvHX7zt179x88fPS4+UnL02etbc9ftHe8fNXZ9Tr2prun
9+27930fPn763D/w5evg0PDI6Nj4xOTU9Mzs3PzC4tJ/8Af8F+A/QH8A7GN5
qI7EgTaOhsko+DcI3gDBv0DwOgheA8GrIPgnCP4Bgr+D4G8geAUEL4PgJRC8
CIIXQPA8CJ4DwbMgeAYET4PgKRA8CYInQPA4CB4DwaMgeAQEx0+mpOCEkZgQ
nDiLk4F9hoAisN/0UQL2HXsKwP7zVn44YNDLDgdNmLnhwNE2Mxw8U+eFQ4b5
rHDYFoETDl1fMMLhexM+OGJhwwZHbYq44MgVFRMcvRvjgTWWciywzjaQA9Za
QzLAevtPelhz8UoO6258qWHtVTMxrL/jpoUNluuksMlWnxI2ihMQwmY5BjrY
MEBBBpsmN6hg48gIEWyeVaGBLUIyJLBNOocCtooFEcB2eSR32DII5QzbJrBc
YevolyNsnzlzgx3Cbk6wS8rOBXaK9znAbrlCe9gx0GgNuyYpbWHnCKcl7J4d
tYMJQqtWMEVa1gYmielawDT5YHOYKJhsDFMlok1hsii2IUyXATeDCcPnRjBl
6t0EJo3bG8C0OX99mLhgoA1TNxt0YfJKhSZM3+XQgxlKJFowR3tFB2apzWjA
PH2daJipKBQJczWUomC2alQEzNfJCocZy2ChMGcLLQxmrb+FwLy9u2CYufAX
CHM3DYNg9opjAMzfrfSHBUqdvrBEm9QPFqmx+sAy/dlEWKi4mwBLNYbjYbGq
chws15HeDAuWszfBkq1wFRato6uwbBFelYU7+Cot3f9XbfHjAyouf/pA1QGX
F1QecflB9SGnJ9QPYI5fqD8A3d9Qv4C6AaL+4S9AQm+J
      "]}, CompressedData["
1:eJztwTERACAMBLBHCl6qAAncMWMGwVXBlmTuu85I8ioAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3zVjmgKD
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602108053565*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XFoTW0cB/Bzz7l3LtuYecc2s26rtdZaa5IkqaVZEq0licTdbezK6117
l5IkSUmSlCRJSpKkJElSkiSRJElJkvS+SZKUJNeec/iee86e595zrt33e5/X
lj338Zx7Ps9vz/M7z/3juffcFcmRwYE/kyPpVDLRM5wcGkyn/k4s/Wt4tMmK
GEZkcPS3P2GIesYwfhaZ0X+ZtChES/56rXiwxKkp1CxRM0WtH20m2tyjfd4z
DLtq18SvKWn7w+m0TnJowNeGTn3P22iXUU+b5Kmq03sDRqpP9A5m4Tzn3NGf
mhIJt8x/ei5mpjroFBLPlIfVPx7Rek8fm/T5AjRifqC4oxsw3lo0bPIOo3ud
+070Xed2LRruSgm7GGXXq8WD/dd3i6I6q9WwMtmdxSRtmyRtaUnbuoBe1UT3
mP6sn6DrviVB7bLLyWHvgZAvKhEnqqCreAHxeQ/8Skc5YlWu41FJDFFcHXNE
US/+UxYwVmVHZnZwoVZtO2limZ9HfYGZOBoNT1vZQeVb7GTJ6w7VbFE05B6q
fD2UZji+2Qy6TMvSXh3fmKs01EvCj8yXLWFul3WiaFQNSY5VcFyJWaJIsIka
UTSxiWpRNLOJKlG0sImpomhlExWiaPsfEFNE0c4m4qLoYBP2q+NcNmGBMEWN
7kTgRNnON3d09Sa+iqZOQUwmEl9AlBOJzyAqicQnTOo0IvERxHQi8QHEDCLx
HpM6U2/iHYhaIvEWRD2R+Ad50UAk3oBoJBKvQSSIxCsQTXoTL5GdzUTiBYgW
IvEcRCuReIZJbSMST0G0E4knIDqIxGNM6ly9iUcg5hGJhyDmE4n7yIsFROIe
iIVE4i6IRUTiDojFehO3kZ1dROIWiCXFJ8bur8nedaHcVLiJjrrdjuRbazI3
x86GEXxT2gwVnfd5YbuOiFrEqRU19htI556Sjt3dgfNF7N+BK8Exvo6Il5X0
GLNi923xyd6noVwZriG+5TlWBuX7P370rFzhpHy4RfIqVoeVehNXQPQSicsg
+ojEJRCriMRFZOdqInEBxBoicR7EWr2Jc8iL9UTiLIgNROIMiCSROI1JTRGJ
UyAGiMRJEJuJxAlM6ha9ieMgthKJYyC2EYmjIIaIxBFk5zCROAxihEgcArFd
b+Ig8mIHkTgAYieR2A9iF5HYh0ndTST2gthDJPaA2EskdoPYpzexC9m5n0js
BHGASOwAcZBIbMekHiISIyAOE4lhEEf0JoaQF0eJxDYQx4jEVhDHiUQak3qC
SGwGcZJIDIA4RSRSIE7rTSSRnWeIxAYQZ4nEehDniMRaTOp5IrEGxAUisRrE
RS0IezfLdz8C5Q7XKuTKJRXro+JOL3H3mNNghNz7C9RzsD5iBYTkbvn2IZDL
aLOPxorYvWxEfIGMw4iUYdYU26hRVSy9iOWKG4t851NBT8oKIcRn+5WjI40o
5o/IQLIqI5rkjTz39bECl91V1ZyYEi+e52oOwOZbEJaDuEYkloG4TiR6QNzQ
m+hGkt8kEktA3CISXSBuE4nFmNQ7RGIRiLtEYiGIe3oTC5AXD4jEfBAPicQ8
EI+IRCcm9TGR6ADxhEi0g3hKJNpAPNObaEV2PicSLSBeEIlmEC+JRBMm9RWR
SIB4TSQaQbwhEg2Y1H/1JupBvCUStSDeEYka5MV7IjEDxAciMR3ERyIxDcQn
vYlKZOdnIlEO4guRmAziK5Eow6R+IxJREOJpzv1jmI7pdSy20wmi4PvQlAbR
ASJOJNpBTCESbSAqiEQriKlEogVEFZFoBlGtN9EEooZIJEDMIhKNIOqKT5SL
B3tnSrlF1gBstovJPzZc4aDOQ8BbiUp57/Nk+2flBXRVj67mjGdX7harrwP/
p2p/6S+wy6C3G/4PbPtBualYnLtOyzdmK9VXw+9z7+1S6N7O/Oy7sdtPKfD+
7hNfPDHxxRNFDnfiiyeKObq6f/GEEfkOCrtxPA==\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 143, 286, 429, 572, 715, 858, 1001, 1144, 1287, 1430, 1573, 1716, 
      1859, 2002, 2145, 2288, 2431, 2574, 2717, 2860, 3003, 3146, 3289, 3432, 
      3575, 3718, 3861, 4004, 4147, 4290, 4433, 4576, 4719, 4862, 5005, 5148, 
      5291, 5434, 5577, 5720, 5863, 6006, 6149, 6292, 6435, 6578, 6721, 6864, 
      7007, 7150, 7293, 7436, 7579, 7722, 7865, 8008, 8151, 8294, 8437, 8580, 
      8723, 8866, 9009, 9152, 9295, 9438, 9581, 9724, 9867, 10010, 10153, 
      10296, 10439, 10582, 10725, 10868, 11011, 11154, 11297, 11440, 11583, 
      11726, 11869, 12012, 12155, 12298, 12441, 12584, 12727, 12870, 13013, 
      13156, 13299, 13442, 13585, 13728, 13871, 14014, 14157, 14300, 14443, 
      14586, 14729, 14872, 15015, 15158, 15301, 15444, 15587, 15730, 15873, 
      16016, 16159, 16302, 16445, 16588, 16731, 16874, 17017, 17160, 17303, 
      17446, 17589, 17732, 17875, 18018, 18161, 18304, 18447, 18590, 18733, 
      18876, 19019, 19162, 19305, 19448, 19591, 19734, 19877, 20020, 20163, 
      20306, 20449, 20592}, CompressedData["
1:eJzN3FVDVFEUBeALdncnIgaoqNiFoCAGiqiEzZhYoGAn3eBP1tczc+PE3nvt
p3n9HueevdYqyXU154qjKOpuiqKi/79FxbNmz5k7b/6ChYsWL1m6bPmKlatW
r1m7bv2GjZs2b9m6bXvJjtKdZbt279lbXrFv/4HKg4cOVx05euz4iZOnTp85
e676fE3thYt19ZcaLl+5eq3x+o2mm823bt9paW1rv3vv/oOHjx535J48ffb8
xcvOV6/fvH3X1f3+Q0/vx0+fv3z99v3Hz1+///T1DwwODY+Mjo1PTE5Nz+ji
/FXFmVHFmVbFmVLFmVTFmVDFGVfFGVPFGVXFGVHFGVbFGVLFGVTFGVDF6VfF
6VPFyf/3heUU/BmEcgr/myI5MX+VgZy4f+44TuyHBIwT/12D4iR8ZoE4SV99
GE7iRyiEk/xNjOCkfKIDOGkvBvKc1AcMcU76e4o0J+N5R5iT9doky8l8/BLl
ZL/FSXIsngYFOTYvlXIcq4dTMY7dO64Ux/JZWYhj+8otw7F+dBfh2N8AJDgO
JwkBjsuFhJ/jdLBh57jdj7g5jucsZo7rdY2X43zsY+W43x45OR6nUEaOz2WW
j+N1KGbj+N2tuTieZ3Qmju9Vn4fjHTJg4fhnHjg4AREMBk5IIoSeExRQIeeE
5WWoOYHxHWJOaJqIlhMcbiLlhGetKDkE0S9CDkUSjY5DEowj49Dk9Kg4RLFB
Ig5VipGGQxaqJOHQZTwpOISRUwIOZQI2nEMayA3m0OaDQznEceVADnV6OoxD
HuYO4tBny0M4DFH3AA5H8t6fw1IE8Obw9BJ8OUw1CU8OV2vDj8NWIvHi8HVa
fDiMFRsPDmfjx53DWkBy5vD2oVw5zPUsRw53W8yNw15ec+Lwd+lcOALVPgeO
RNPQniNSfLTmyPQwbTlCtVBLjlRL1Y4jVpq14sh1eG04gpViC45kwzmbI1q4
zuTI9r+zOMJ19AyOdDs+nSNe1k/lyG8HpHEAUwYpHMSyQjIHMvSQyMHsTiRx
QDMYCRzUKkc8BzYSEsvBbZbEcYATKjEc5KJLIQc6MFPAwe7d5HPA8zt5HPQa
kMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQa
kMlBrwGZHPQakMlBrwGZHPQaUB7nH5CUy2w=
      "]}, CompressedData["
1:eJztwTENACAQBLBDCo4+SCBhBv/T22BoO/ddZyR5FQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPhCA2Y8Ams=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602127210661*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XtoE0kcB/DN02hbrfWqrc+c+H7S84GICEV6RUQpRUQ8xEtDtTk8r/SK
ICIiIoiIiCAiIiKIiIggIiIiiIiI3CEiIoKIiMgdIiIiiIi57q79bmY7k+zG
xO9srqXdTGd3P/Obyf4mf0yyWZ3q7er8PdWbSaeSrT2p7q5M+s/kz3/09FVF
QoYR6ur760gaZjlrGP2bbN9vNmNuzJrC5QbzIWKemkYpYpbCZqkDdWHUOXvb
xTMMq2iVzL+wpO4Hu9FGya5OVx0adR33q7WNCnWSQ1Wnt3mMNDjR21gE59nn
9v3UaxJu3H16Pma0Oug0LrywPKyOUkQrnj7woi8UoBFzA+UdXY/xNqBisziM
Tp67TnTluVWK+ssUv5NRbrnOfLB632Ju6nJqjUg2t7GYpG6zpC4jqfvFo1c7
2Dye/pwfr/N+RIJa22b7GhZ3+HxRCdlReZ3Fi4hP3PEtDeWJVTmPRyUxRJEd
i8xN2Pwn7jFWZUPh3OB8zdrWRRPL9u91BRbG3qh/OpIbVKHJTnbxOkO1wInI
LKnHq1AzGsfkel69TtiyBCgQ5ICk9fUK8TURZDOa024T2o2qBifPzFh6Z541
wOY/cS2cOejXUC2cWXCqtHBmwKnRwpkGZ4QWzhQ4IyvK+RH5NUoLZxL6NVoL
ZwKcBi2ccXDGauE0whmvhTMGzsSKcurhJLVw6pDvk7VwatGvqVo4w+FM18Kp
hjNTC2cYnNlaOAk4cyvKiSG/5mvhRNCvn7RwQnAWsp0vIBYTic8glhCJTyCW
Bpv4CGIZkfiA7F1OJN6jI81E4h2IFUTiLYgWIvEGRCuReA1iZbCJf5Ajq4jE
K3RkDZF4CaKNSLwA0U4knoNYSySegVgXbOIpiPVE4gkydUP5iYHribJ3mSjX
Tx6juxudhuRLiTI3zyJO/xkeFuHDvqITj/PbdMgshexSWWN/hNg3aR27s+Lo
iti94qjhGD9ExCmtx5gVu2shU/a+FOXM8ADxpfPMDMr3u3xtWTnDSXl/k+R9
EJ3BJv7CbL+FSNxDR34jEndBbCUSd0BsIxK3QXQTiVsgeoJN3ATRSyRuIFO3
E4nr6MgOInENxE4icRXELiJxBcRuInEZxJ5gE5dA7CUSF5Gp+4jEBXRkP5E4
D+IAkTgH4iCROAviULCJMyAOE4nTyJEjROIUOnKUSJwEcYxInABxnEgcB3GC
SBwDcTLYxFEQp4jEEWTqaSJxGB05QyQOgThLJA6COEckDoA4H2xiP4gLRGIf
cuQikdiLjlwiEntAXCYSu0FcIRK7QFwlEjtBXAs2sQPEdSKxHZl6g0j0oiM3
iUQPiFtEohvEbSKxDcSdQBDWapbr/gvKFa6tYO+qWBeVsFtJOPvsCsPn2p+n
lr21ESsiJGfJN4OkvYc6a2+sjM3LRsQVSAlGJI5nTbGMGlXFsgXPzt9OLPKV
TwU9JCcEH/cyUI6ONKKYOyIDF6syoiFi5PnzoxOt3lc9J2GJlyiQzR7YQhNC
GsQDIpEC8ZBIbALxKNjERhCPicQGTERPiMR6dOQpkVgH4hmRWAviOZFoB/Ei
2EQbiJdEYjVy5BWRWIWO/EskVoJ4TSRaQbwhEi0g3hKJFSDeBZtoBvGeSCxH
pn4gEsvQkY9EYimIT0RiCYjPRGIxiC9EYiEI8zD785qV4DQhZbJ2iezMF/tV
9F17SuXMFZ0E25ktOsPYzkzRqWY700VneKU4U0Wnlu1MFvO9ju0kxX7Vs52J
ojOG7YwXnUa2M1Z0xrGdBtGZUClOvZhfk9jOKLFfRd+1p1TOSNGZwnZGiM40
tlMjOjPYTpXozKoUZ6jozGE7cTHf57GdqNivpu/kVJkP1vqbciEwLIoLHFH+
CelqW7YfPN4bVt2GeLBsvbCqqPb6m1pUyqacJWVXA+5PEX9TD6yt19tJfwfb
elAuopbnruLyhegadXL8f+6trkPz1pWfe7d965Ai798/+MUig18sUuZwB79Y
pJyjG/QvFjFC/wHBs9Dc\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 143, 286, 429, 572, 715, 858, 1001, 1144, 1287, 1430, 1573, 1716, 
      1859, 2002, 2145, 2288, 2431, 2574, 2717, 2860, 3003, 3146, 3289, 3432, 
      3575, 3718, 3861, 4004, 4147, 4290, 4433, 4576, 4719, 4862, 5005, 5148, 
      5291, 5434, 5577, 5720, 5863, 6006, 6149, 6292, 6435, 6578, 6721, 6864, 
      7007, 7150, 7293, 7436, 7579, 7722, 7865, 8008, 8151, 8294, 8437, 8580, 
      8723, 8866, 9009, 9152, 9295, 9438, 9581, 9724, 9867, 10010, 10153, 
      10296, 10439, 10582, 10725, 10868, 11011, 11154, 11297, 11440, 11583, 
      11726, 11869, 12012, 12155, 12298, 12441, 12584, 12727, 12870, 13013, 
      13156, 13299, 13442, 13585, 13728, 13871, 14014, 14157, 14300, 14443, 
      14586, 14729, 14872, 15015, 15158, 15301, 15444, 15587, 15730, 15873, 
      16016, 16159, 16302, 16445, 16588, 16731, 16874, 17017, 17160, 17303, 
      17446, 17589, 17732, 17875, 18018, 18161, 18304, 18447, 18590, 18733, 
      18876, 19019, 19162, 19305, 19448, 19591, 19734, 19877, 20020, 20163, 
      20306, 20449, 20592}, CompressedData["
1:eJzN3FVDVFEUBeALdncnIgaoqNiFoCAGiqiEzZhYoGAn3eBP1tczc+PE3nvt
p3n9HueevdYqyXU154qjKOpuiqKi/79FxbNmz5k7b/6ChYsWL1m6bPmKlatW
r1m7bv2GjZs2b9m6bXvJjtKdZbt279lbXrFv/4HKg4cOVx05euz4iZOnTp85
e676fE3thYt19ZcaLl+5eq3x+o2mm823bt9paW1rv3vv/oOHjx535J48ffb8
xcvOV6/fvH3X1f3+Q0/vx0+fv3z99v3Hz1+///T1DwwODY+Mjo1PTE5Nz+ji
/FXFmVHFmVbFmVLFmVTFmVDFGVfFGVPFGVXFGVHFGVbFGVLFGVTFGVDF6VfF
6VPFyf/3heUU/BmEcgr/myI5MX+VgZy4f+44TuyHBIwT/12D4iR8ZoE4SV99
GE7iRyiEk/xNjOCkfKIDOGkvBvKc1AcMcU76e4o0J+N5R5iT9doky8l8/BLl
ZL/FSXIsngYFOTYvlXIcq4dTMY7dO64Ux/JZWYhj+8otw7F+dBfh2N8AJDgO
JwkBjsuFhJ/jdLBh57jdj7g5jucsZo7rdY2X43zsY+W43x45OR6nUEaOz2WW
j+N1KGbj+N2tuTieZ3Qmju9Vn4fjHTJg4fhnHjg4AREMBk5IIoSeExRQIeeE
5WWoOYHxHWJOaJqIlhMcbiLlhGetKDkE0S9CDkUSjY5DEowj49Dk9Kg4RLFB
Ig5VipGGQxaqJOHQZTwpOISRUwIOZQI2nEMayA3m0OaDQznEceVADnV6OoxD
HuYO4tBny0M4DFH3AA5H8t6fw1IE8Obw9BJ8OUw1CU8OV2vDj8NWIvHi8HVa
fDiMFRsPDmfjx53DWkBy5vD2oVw5zPUsRw53W8yNw15ec+Lwd+lcOALVPgeO
RNPQniNSfLTmyPQwbTlCtVBLjlRL1Y4jVpq14sh1eG04gpViC45kwzmbI1q4
zuTI9r+zOMJ19AyOdDs+nSNe1k/lyG8HpHEAUwYpHMSyQjIHMvSQyMHsTiRx
QDMYCRzUKkc8BzYSEsvBbZbEcYATKjEc5KJLIQc6MFPAwe7d5HPA8zt5HPQa
kMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQakMlBrwGZHPQa
kMlBrwGZHPQakMlBrwGZHPQaUB7nH5CUy2w=
      "]}, CompressedData["
1:eJztwTENACAQBLBDCo4+SCBhBv/T22BoO/ddZyR5FQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAPhCA2Y8Ams=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.5306021484968786`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzt3XtoE0kcB/DN02hbrfWqrc+c+H7S84GICEV6RUQpRUQ8xEtDtTk8r/SK
ICIiIoiIiCAiIiKIiIggIiIiiIiI3CEiIoKIiMgdIiIiiIi57q79bmY7k+zG
xO9srqXdTGd3P/Obyf4mf0yyWZ3q7er8PdWbSaeSrT2p7q5M+s/kz3/09FVF
QoYR6ur760gaZjlrGP2bbN9vNmNuzJrC5QbzIWKemkYpYpbCZqkDdWHUOXvb
xTMMq2iVzL+wpO4Hu9FGya5OVx0adR33q7WNCnWSQ1Wnt3mMNDjR21gE59nn
9v3UaxJu3H16Pma0Oug0LrywPKyOUkQrnj7woi8UoBFzA+UdXY/xNqBisziM
Tp67TnTluVWK+ssUv5NRbrnOfLB632Ju6nJqjUg2t7GYpG6zpC4jqfvFo1c7
2Dye/pwfr/N+RIJa22b7GhZ3+HxRCdlReZ3Fi4hP3PEtDeWJVTmPRyUxRJEd
i8xN2Pwn7jFWZUPh3OB8zdrWRRPL9u91BRbG3qh/OpIbVKHJTnbxOkO1wInI
LKnHq1AzGsfkel69TtiyBCgQ5ICk9fUK8TURZDOa024T2o2qBifPzFh6Z541
wOY/cS2cOejXUC2cWXCqtHBmwKnRwpkGZ4QWzhQ4IyvK+RH5NUoLZxL6NVoL
ZwKcBi2ccXDGauE0whmvhTMGzsSKcurhJLVw6pDvk7VwatGvqVo4w+FM18Kp
hjNTC2cYnNlaOAk4cyvKiSG/5mvhRNCvn7RwQnAWsp0vIBYTic8glhCJTyCW
Bpv4CGIZkfiA7F1OJN6jI81E4h2IFUTiLYgWIvEGRCuReA1iZbCJf5Ajq4jE
K3RkDZF4CaKNSLwA0U4knoNYSySegVgXbOIpiPVE4gkydUP5iYHribJ3mSjX
Tx6juxudhuRLiTI3zyJO/xkeFuHDvqITj/PbdMgshexSWWN/hNg3aR27s+Lo
iti94qjhGD9ExCmtx5gVu2shU/a+FOXM8ADxpfPMDMr3u3xtWTnDSXl/k+R9
EJ3BJv7CbL+FSNxDR34jEndBbCUSd0BsIxK3QXQTiVsgeoJN3ATRSyRuIFO3
E4nr6MgOInENxE4icRXELiJxBcRuInEZxJ5gE5dA7CUSF5Gp+4jEBXRkP5E4
D+IAkTgH4iCROAviULCJMyAOE4nTyJEjROIUOnKUSJwEcYxInABxnEgcB3GC
SBwDcTLYxFEQp4jEEWTqaSJxGB05QyQOgThLJA6COEckDoA4H2xiP4gLRGIf
cuQikdiLjlwiEntAXCYSu0FcIRK7QFwlEjtBXAs2sQPEdSKxHZl6g0j0oiM3
iUQPiFtEohvEbSKxDcSdQBDWapbr/gvKFa6tYO+qWBeVsFtJOPvsCsPn2p+n
lr21ESsiJGfJN4OkvYc6a2+sjM3LRsQVSAlGJI5nTbGMGlXFsgXPzt9OLPKV
TwU9JCcEH/cyUI6ONKKYOyIDF6syoiFi5PnzoxOt3lc9J2GJlyiQzR7YQhNC
GsQDIpEC8ZBIbALxKNjERhCPicQGTERPiMR6dOQpkVgH4hmRWAviOZFoB/Ei
2EQbiJdEYjVy5BWRWIWO/EskVoJ4TSRaQbwhEi0g3hKJFSDeBZtoBvGeSCxH
pn4gEsvQkY9EYimIT0RiCYjPRGIxiC9EYiEI8zD785qV4DQhZbJ2iezMF/tV
9F17SuXMFZ0E25ktOsPYzkzRqWY700VneKU4U0Wnlu1MFvO9ju0kxX7Vs52J
ojOG7YwXnUa2M1Z0xrGdBtGZUClOvZhfk9jOKLFfRd+1p1TOSNGZwnZGiM40
tlMjOjPYTpXozKoUZ6jozGE7cTHf57GdqNivpu/kVJkP1vqbciEwLIoLHFH+
CelqW7YfPN4bVt2GeLBsvbCqqPb6m1pUyqacJWVXA+5PEX9TD6yt19tJfwfb
elAuopbnruLyhegadXL8f+6trkPz1pWfe7d965Ai798/+MUig18sUuZwB79Y
pJyjG/QvFjFC/wHBs9Dc\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602168954048*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 132, 264, 396, 528, 660, 792, 924, 1056, 1188, 1320, 1452, 1584, 
      1716, 1848, 1980, 2112, 2244, 2376, 2508, 2640, 2772, 2904, 3036, 3168, 
      3300, 3432, 3564, 3696, 3828, 3960, 4092, 4224, 4356, 4488, 4620, 4752, 
      4884, 5016, 5148, 5280, 5412, 5544, 5676, 5808, 5940, 6072, 6204, 6336, 
      6468, 6600, 6732, 6864, 6996, 7128, 7260, 7392, 7524, 7656, 7788, 7920, 
      8052, 8184, 8316, 8448, 8580, 8712, 8844, 8976, 9108, 9240, 9372, 9504, 
      9636, 9768, 9900, 10032, 10164, 10296, 10428, 10560, 10692, 10824, 
      10956, 11088, 11220, 11352, 11484, 11616, 11748, 11880, 12012, 12144, 
      12276, 12408, 12540, 12672, 12804, 12936, 13068, 13200, 13332, 13464, 
      13596, 13728, 13860, 13992, 14124, 14256, 14388, 14520, 14652, 14784, 
      14916, 15048, 15180, 15312, 15444, 15576, 15708, 15840, 15972, 16104, 
      16236, 16368, 16500, 16632, 16764, 16896, 17028, 17160, 17292, 17424, 
      17556, 17688, 17820, 17952, 18084, 18216, 18348, 18480, 18612, 18744, 
      18876, 19008}, CompressedData["
1:eJzt1cVCm1EAROEf1xa3osEdWlxagrsFdwhuDQ4t7g55ZFjd8wosZjXbbzXH
5nQ5nJ6WZdk7LMvjcz08vbx9fP38AwKDvn0PCQ0Lj4iMio6J+xGfkJiUnGJL
TcvIzMrOyc3LLygs+vmrpLSsvKKyqrrm9586e31DY1NzS2t7R2dXd09vX79j
YGh4ZHRsfGJyanpmzjm/sLi0vLK6tr7517W1vbO7t39w+O//8cnp2fnF5dX1
7d39w+PT88vr2zuGYAyxGNIxFGOoxdCGYRDDLIYNDEcYbjC4jSEIQwyGNAxF
GGowtGIYwDCDYR3DIYZrDO/GEIghGkMqhkIM1RhaMDgwTGNYw3CA4QrDmzEE
YIjCYMNQgKEKQzOGfgxTGFYx7GO4xPBqDP4YIjGkYMjHUImhCUMfhkkMKxj2
MFxgeDEGPwwRGJIx5GGowNCIoRfDBIZlDLsYzjE8G4MvhnAMSRhyMZRjaMDQ
g2EcwxKGHQxnGJ6MwQdDGIZEDDkYyjDUY+jGMIZhEcM2hlMMj8bgjSEUQwKG
bAylGOwYujCMYljAsIXhBMODMXhhCMEQjyELQwmGOgydGEYwzGNwYTjGYG7S
zVUHc9WxXHU6V13MVddy1W1c9SBXPctVb3DVR1z1DVftVi/UC/VCvVAv1Av1
Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1Q
L9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL9UK9UC/UC/VCvVAv1Av1Qr1QL9QL
9UK9UC/UC/VCvVAv1Av14uv04gONDAqP
      "]}, CompressedData["
1:eJztwaERACAMBLBnFDapRjICd2j2d90ClWSet+9IUisAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB8
0lqPAjU=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.5305435327802515`*^9, 3.530543689864236*^9, {3.530543741622196*^9, 
   3.530543761232318*^9}, 3.5305439423766785`*^9, 3.530544202677567*^9, 
   3.530544506396939*^9, 3.5305445882206187`*^9, 3.530544700697052*^9, 
   3.5305449673623047`*^9, 3.5305489366663356`*^9, 3.530602189103201*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnFtv0zAYQNOkLUNj4rIL5W1/hQfgCQnxygtrtWl9QCDg/5faYXbj2mnS
1q6P42lLPzl2cj7XuehI+z7f/X28/3H3d7m4u/30++7X43Lx5/bjz9/rpmpU
FKPH9d/8thDxqiieNqv172opNqJldzwTH5UYulBRJaJSRHPVVqo2vfdrc0Qh
QxmJv9LSdlWf9J1l173Rpk5q9Psut+NGm6Wra/iXjqQc+vpglRpXj13/XEeC
OzWHtx3mxg29UAuvtGPNj0HbHL696HcBFhPzAH5ntyPvTDU8NKdRX+fGQOM6
l9G435XS92a0Gb8RHzL7D2LzZqO1qFabJ5tY2h4sbUtL27eOx3uVT6++/o2f
rvf9ynJQuX1fr+Hmjp4PlVFN1fUuvgdfc8chJ2phdd7HxxYG2TYTTaW4St6K
qFKRbJt1jPqPnXacFGdG5eYs9Ho8yNU5WT3tPdUMlApj3D+HajP7Xbdv2+Uo
z3l9QMJG6r1GlCJyr4Bd+eTkty6Jrg9V200qltnYuoP3el34f1e0Pd7kIS4P
TWvPyRm7vu6W5zET+HVQTD12Ohjgl0Ex9djngwG+CIqp954PBvg8KKaOLgYD
/Dwopo5eDgZ4GhRTR68zcKzA46CYeuzlYIDLoJh67M2AgAMRGv1SZw373qCj
1FkjcBaJA+McRAb2DYyTJjhgnDTBAeOkCQ4YJ01wwDhpggPGOQgcMM5BZGDf
wEBpggMORGj0S5017HuDjlJnxUkTHDDOQeCAcQ4iA/sGxkkTHDBOmuCAcdIE
B4yTJjhgnDTBAeMcBA4Y6CAysG/gQIRGv9RZw7436Ch1Vpw0wQHjpAkOGOcg
cMA4B5GBfQPjpAkOGCdNYgXern1hq4jk/If1CNSKvciGLYuW/9F/GtGhPE0Z
8Vw0qfomOhLRqI68zlR0uiiKmdLlP046P2YNkAjXT3QyLIr1M4yZMoqM2Op6
OZ9WERgze0ERWxb/88z679DsMms8rGFffnWUOivO/OGAceYPB4wzfzhgnEjD
AeNEWgb2DRyr+UsHODrxlhxwdMIuOeDoRE1ywEBfggMORGj0S5017GNYR5k1
HlacL8EB43wJDhjnS3DAOF+CA8bpBxwwTj9kYN/AOF+CA8b5EhwwzpfggIG+
BAcciNDolzpr2MewjlJnxTmIDOwbGCdNcMA4aYIDxkkTHDBOmuCAcQ4CB4xz
EBnYNzBOmuCAcdIEBwyUJjjgQIRGv9RZw7436Ch1VpyDwAHjHEQG9g2MkyY4
YJw0wQHjpAkOGCdNcMA4B4EDxjmIDHwkYFlHRtak6VBbJjqRYoCf1Tmd6X11
gzii0Sb+OBWFqo4ZTfaYAF2S66QWR7NMPCaLkFc9v+2pWv+OwlNjd+aBUjX6
tZWJcuTwbCPXdeLGyH2+9FOmPjFTl9BVa+rPmlPUfqcO+2anI2c5NAP8bMfj
Mib+5FQXDhhnjnDAOHOUgX0D41QXDhinunDAONWFA8apLhxwrOYoHeDodE8G
PjVwdE4oQeBAhEa/1FnDvjfoKHVWnDTBAeOkCQ4Y5yBwwDgHkYF9A+OkCQ4Y
J01wwDhpggPGSRMcMM5B4ICBDgIHHIjQ6JdZ42EN+8qgo9RZcb4EB4zzJThg
nC/BAeP0Aw4Ypx8ysG9gnC/BAeN8CQ4Y50twwDhfggMG+hIccCBCo1/qrGEf
wzrKrPGw4nwJDhjnS3DAOF+CA8b5EhwwTj/ggHH6IQP7Bsb5EhwwzpfggHG+
JFbgc/EhC6W0lIYJCWw1J1v1YSTxizqF+qNZ7KWKOJkmla1UzfleiQXKxOh3
rJw2a0+dJhNddmp8+Hcit+/9fN/7HFt+OAsF2doeLG1LS9s35/HsVZ0u3HdK
Pxidb9QDO70Iig9iU9PU62q5XzwTH3LlLVSkq/HNVZuu+6T3fm2OsNftarRd
1Sd9Z9l1b7Spkxr9vtdLtNFm6eoa/qUjKYe+PlilxtVj1z/XkeBOzeFth7lx
Qy/UwnMUmJsfg7Y5fHvR7wLsUdnuKLPbkXemGh6a06ivc2OgcZ3LyPaAbblS
utyAitE/k7uQvA==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A1", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A2", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A3", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A4", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A5", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A6", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"N", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A7", "=", 
   RowBox[{"A1", "*", "A2", "*", "A3", "*", "A4", "*", "A5", "*", "A6"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"A7", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5305454600144825`*^9, 3.530545483672836*^9}, {
   3.530545513870563*^9, 3.530545621249705*^9}, 3.5306022145696573`*^9, 
   3.5306023970870967`*^9}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[SparseArray[
   Automatic, {144, 144}, 1., {
    1, {{0, 121, 241, 360, 478, 595, 711, 826, 940, 1053, 1165, 1276, 1386, 
      1496, 1606, 1716, 1826, 1936, 2046, 2156, 2266, 2376, 2486, 2596, 2706, 
      2816, 2926, 3036, 3146, 3256, 3366, 3476, 3586, 3696, 3806, 3916, 4026, 
      4136, 4246, 4356, 4466, 4576, 4686, 4796, 4906, 5016, 5126, 5236, 5346, 
      5456, 5566, 5676, 5786, 5896, 6006, 6116, 6226, 6336, 6446, 6556, 6666, 
      6776, 6886, 6996, 7106, 7216, 7326, 7436, 7546, 7656, 7766, 7876, 7986, 
      8096, 8206, 8316, 8426, 8536, 8646, 8756, 8866, 8976, 9086, 9196, 9306, 
      9416, 9526, 9636, 9746, 9856, 9966, 10076, 10186, 10296, 10406, 10516, 
      10626, 10736, 10846, 10956, 11066, 11176, 11286, 11396, 11506, 11616, 
      11726, 11836, 11946, 12056, 12166, 12276, 12386, 12496, 12606, 12716, 
      12826, 12936, 13046, 13156, 13266, 13376, 13486, 13596, 13706, 13816, 
      13926, 14036, 14146, 14256, 14366, 14476, 14586, 14696, 14807, 14919, 
      15032, 15146, 15261, 15377, 15494, 15612, 15731, 15851, 
      15972}, CompressedData["
1:eJy920VzVUEQhuF74wZxgbhAXCAuxA3iAnEhbhAXiBsu+ckEO98kmaqpkZ7V
Wb67p2pOdydPrfZOebhcrplql8t9/XV7eHp5+/j6+QcE3rsfHBIaFh4RGRX9
4GFsXHxCYlJySuqjx+kZmVnZObl5+U+eFhYVl5SWlVdUPquuqa2rb2hsam55
/qKtvaOzq7unt+/lq4HBoeGR0bHxiddT0zOzc/MLi0vLb96urq1vbG5t7+y+
e79/cHh0fHJ6do5wEMIxCKchXIBwFcKtCPcjPInwCsJ7CDvdQHSj0U1FNx/d
SnRb0O1DdwLdZXR30f2fDUA2CtkUZPOQrUC2GdleZMeRXUJ2B9l/VX9UI1FN
RjUX1XJUm1DtQXUM1UVUt1H9G/VDNALRJERzEC1DtBHRbkRHEV1AdAvRP01f
NMPRTEQzG81SNBvQ7EJzBM15NDfR/J30QTIMyQQks5AsQbIeyU4kh5GcQ3ID
yeuiN4qhKMajmIliMYp1KHagOITiLIrrKLo9vBAMQTAOwQwEixCsRbAdwUEE
ZxBcQ9DtiV4werHopaNXiF4Nem3oDaA3jd4qeqAvCPTFgL400FcA+qpAXyvo
6wd9k6BvBfTt2ZXWKq9XNlH9eWXR0h9OzYKh352aBTy/OTULbH51ahbE/OLU
LGj52alZoPKTU7MA5UenZsHJD6hZcPISOXonL1Cjd/IcNXonz1Cjd/IUNXon
T1Cjd/IYNXonj1Cjd/IQNXonD1Cjd3IfNXon8Wi+sOAk80and5J5mNM7yTzH
6Z1kXuH0TjKvb3onmWc3vZPMg5veSeatTe8k886md5J5ZNM7yTyx6Z1kXtgW
nOT/yyRykv8Dk8hJ/m9LIif5fyuJnOT/pSRykv97kshJ/o9JIif5/ySJnOT/
jyRykv8zkshJ/q9IIif5fyKpnBTOfEw6KRz0mHRSON4x6aRwqmPSSeE0x6ST
wjGOSSeFAxyTTgpnNyadFM5tTDopHNqYdFI4sjHppHBiY9RJmdm4tpMyA3Ft
J2XG4NpOyky/tZ2UmXprOykz7tZ2UmbQre2kzIxb20mZ+ba2kzLDbW0nZUbb
2k7KTLb1nVTcIVJzUnFxSM1JxXUhNScVt4TUnFTcDlJzUnEtSM1JxYUgNScV
d4HUnFTcA1JzUnEJSM1JxRUgNScVN4AUndTftZRwUn/BUsJJ/bVKCSf1tykl
nNTfopRwUn99UsJJ/cVJCSf1dyYlnNTfl5RwUn9ZUsJJ/VVJCSf1NyVlnDS6
ky5y0ugiushJo+vnIieNbp2LnDS6bS5y0uiauchJowvmIieN7paLnDS6Vy5y
0uhSuchJoyvlIieNbpQLnaS63eE6SXWww3WS6kyH6yTVdQ7XSaqrHK6TVOc4
XCepDnG4TlLd4HCdpLq/4TpJdXzDdZLq9IbrJNXlDd9JCzeOjJMWLhtZKC1c
NN6g0sIt400tLdwx3hLTwhXjbTYtXDHewdPCHeNdQy3cMnIstXDRyEPVwmUj
l1cLN458aX8BdcSunQ==
      "]}, CompressedData["
1:eJztwTERACAMBLBHCkYqAgkczPjfaoIxydxv3ZHkVAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAPGrgOAk0=
     "]}], {{0, 0}, {144, 144}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}, {{143.5, 
       FormBox["1", TraditionalForm]}, {94.5, 
       FormBox["50", TraditionalForm]}, {44.5, 
       FormBox["100", TraditionalForm]}, {0.5, 
       FormBox["144", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {49.5, 
       FormBox["50", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}, {143.5, 
       FormBox["144", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{3.5306025303717203`*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnN1v00gQwPNNUa7qldKekRCqkBBCCCFOkHceuHs6CfHKC23Uqnk43Ynj
/+/Fa+qJNzvOfsyMpxtXkIzW3vi3ju3Z3yj2Xxc/bq7+vvixWl6c//n94t+b
1fK/8z/++b5uGg8Hg+HN+v/l+aCMbweDu5fb9b/bVflStuyOi/JtXHZd1tG4
jEZldFm3jeo2WPql2WNgQhOV/0eOtsfVRp84Fl1ZbfVGrfW+mddJo82xKtb9
syfp/aGvPmxc96v6rv9OleDO7O5tH3OGQy/rA2/kxrqkoG123z7odwEOpvYH
8O5dT96ibrhu7kY4z62O1nluoknYmRJ6MdqMH5VvZvSfypdHG62D8e3mxqaO
tmtH28rR9tXz837tN19//Rt/vtf9seNDzevH6hhuLghMKsOKyvcqHsHXXJCy
oRZW9Do+cTCYtqJsGpVnyW9lNK4j01Z4Rh59n5bRzHNXoOMYbY49KCmYY3J6
e7dUdtyjeuOTcPLx5ph3Xapdp57Z5mnCMK0Bt6/3rP2L3jWAvRytdaj7pkjX
Jaez4W9dgIOy/c+Lmis7mY84SR2H7944x77Qlvx5TwiPebkgep4v4REvF/R9
kS/hIS8X9H2ZL+GclwuWvsqX8CEvF0Sv8yWc8XJB9KYn7I5wwssF0dt8CUe8
XND395wJuZCg7/ss4Zhz8CI3LmaDNlzmfMsOjtmDDdykh5OGY1bz6kTNEo5Z
yD+U0cMs4Zg13Hyt8yzhmOXbwB1mCces3AbuKEs4Zo01cMdZwjHLq4E76eGk
4Zh92uTWs0zhaGmstFrkxsWXR2FpTlwsAm1x6bJ7KjgWR7XgdAk0FRyLoy6a
6+kS6L2AYxHoRXM9XXZPBcci0B+abbrsngqORaCt65wuu6eCYxFoC06X3VPB
sQi0BafL7qngWBzVSl+6BJoKjsVRrfSlS6D3BI6CBk2rRW5cfHkUopy4CAUa
5dJg9/RwhAKNwmmwe3o4QkddYOtpEGh6OEJHXWDraRDoPYMjFOgFtp4Gu6eH
IxRo1wzERBrsPhpu+x5i15Ml0HsDCTUbzSMbmu2+MdlF3HLr410Pj1v6R0rG
3SQIHdSwjIZVxLpXCEsH6F5BSwcq9grcFC22L+z7oRUeF4SFEXTOhBZGVBwX
+e0V6zZr13NK0KxBWFFBJ1sbFRX33dQu4p9jkigF+YB3UXJB52BFzyXDxTcZ
hCgnruQqkAdXdyUqTrjkKhA6M4GouxIVJ1xyFQiF01Ci4oRLLrSgcx0NVSBO
uORCCzrlgPW6qwLtLVxyFah9BmKi7kpUnHDJRRiP3NrdD1A44ZKLEx65tbsf
oHDCJUu7R27t7gconHDJ7uyRW7v7jQcvXChNUOYqcuPiS1UQ9Vz8XJHu7JE4
IZIWexm4SHcOgpMWexm4SHf2mHJ0J/YycJHu7DHl6E7sZeAi9dRjygFLpd1Z
Bi5ST30nHyaSduceLtadgyYk0mIvAxfpzkG5VVrsZeAi3Tkot0qLvQxcpDsH
5VZpsZeCC9hKeFotcuPiS1UQ5cQV5KhBCQoiGYHu4WIFOhJOxu6l4YIEOmje
IW330nBBAh0075C2e2m4IIEOmnfAUhm7l4YLctTwGYiJZARaGi7IUSMnJDIC
3cPFCnRkbpWxe2m4IIGOzK0ydi8NFyTQkblVxu7l4fy2EplWi9y4+PIoRDlx
eTiqiyvogssp0N3BeThqZGqHiFOge7hYgY6cd8jYfXdwHgIdOe+Qsfvu4DwE
OnLeAUs57b47OA+BTpmBmIjT7ruD83DU5AkJp0B3B+fhqMnpi1Og9xvO3E9u
7k33uMfcQ6qT8y0q1RbkQcV/AMuqhvITrbbyf8oTAzjH5Ec/jRgsPDbDw+iT
k/1ZvTWz3SnjwCKLFjRDJPgWZ/UxjDwwYoKPsg03edpRwADdj3dAeB9sjGs9
SKtnzJcpNcypPUwDOG4d5oPm7mi/YvLNdCBCH0ViQR7sSEddsUaXPdq5gq7V
9DUZDXBoZSF5tggRfdlDAxxaWUiekHGWPXq4HXBo2SN5isdZk9EAh5Y9kqdV
sJS+JqMBDi170ExkTERfk9EAh5Y9CCck9DUZDXBoZYEwt9KXPTTAoeUAwvRF
/6OGHm4HHFofIMyt9L+40AG3vRXCtFrkxsWXRyHKicsSaF+uoBOCyu51wVkC
TTjvgIjK7nXBHbfC6RJoXXBHDjgaJHqB7uG84Q4xuGQkWEpl97rgLIGmnoGY
iMrudcFZAs0yIaGye11wlkCz5FYqu9cFZzkqS26lEmhdcCMHHHX6ohJobXDb
XISZq+i5ZLj4UihEOXGdOi5iHlxBX3Wa2GuFO/GE607stcIdt8JpEHutcEcO
ODV6qhrusIajRoKlae7cw0XAzZtw1DMQE6WJvVY4cyYxT0jSxF4r3MxxnaPO
FWlirxVu0gqnQey1wo0ccIrcWTEcc+YqcuN6z0ZjRT2cJNy7ECQLLqhHtE/r
J3zL+7VCFG3W+gnf8HIROLZ+wte8XAS2rZ/wFS8XLI1WW/2EL3m5IIqW3J4w
nfAFLxdE0UKun/A5LxdE0Wqun/Ccl4tA0tUQzss3cxs3epP6M15Cp7hv3a5u
EH+pmKu35r3nY030TQzXrfLziJE85eW31qMaCTy1QpYfHl0xSd//5vUjz3cb
89nmDX1Qgavt2tG2crR9RT/P/QSJQ/xCx4PhfZ3ds82XweBT+VLRVMfVKi4u
yjdz5C3rCJ7Uc1m3wbMoYOmXZg/3M0IabY+rjT5xLLqy2uqNWut9qw7RRptj
Vaz7Z0/S+0Nffdi47lf1Xf+dKsGd2d3bPuYMh17WBx7yMJtLCtpm9+2Dfhdg
wFN0SPauJ29RN1w3dyOc51ZH6zw3kSvBtpwpPhegwfB/Bl5TXw==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", "A7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "A7", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "A7", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"A7", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", 
       RowBox[{"k", "++"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "k", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"k", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Length", "[", "A7", "]"}], "^", "2"}], ")"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "A7", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"A7", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "12"}], ")"}]}]}], ",", 
     RowBox[{"Print", "[", "i", "]"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.530545889259034*^9, 3.530546060904852*^9}, {
   3.530546221687048*^9, 3.530546315055388*^9}, {3.5305493298628254`*^9, 
   3.530549354572239*^9}, {3.5305494444193773`*^9, 3.5305494794013786`*^9}, 
   3.530602597237545*^9}],

Cell[BoxData["144"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.53060254155136*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.53060254155336*^9}],

Cell[BoxData["4764"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.5306025416873674`*^9}],

Cell[BoxData["0.22974537037037038`"], "Output",
 CellChangeTimes->{{3.5305458936352844`*^9, 3.5305459115593095`*^9}, 
   3.530545981282297*^9, 3.5305460620949197`*^9, {3.530546296839346*^9, 
   3.5305463157554283`*^9}, 3.5305490892750645`*^9, 3.530549370068125*^9, {
   3.530549447507554*^9, 3.530549482820574*^9}, 3.530602541688368*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602541695368*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025417023687`*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025419883847`*^9}],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025419943852`*^9}],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420013857`*^9}],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420073857`*^9}],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420163865`*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542023387*^9}],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420323873`*^9}],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420413876`*^9}],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542049388*^9}],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542056389*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542063389*^9}],

Cell[BoxData["25"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420703897`*^9}],

Cell[BoxData["37"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.53060254207839*^9}],

Cell[BoxData["49"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.53060254208539*^9}],

Cell[BoxData["61"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025420903907`*^9}],

Cell[BoxData["73"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542097391*^9}],

Cell[BoxData["85"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542104391*^9}],

Cell[BoxData["97"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025421123915`*^9}],

Cell[BoxData["109"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025421193924`*^9}],

Cell[BoxData["121"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.530602542125393*^9}],

Cell[BoxData["133"], "Print",
 CellChangeTimes->{
  3.5305493701411295`*^9, {3.530549447571558*^9, 3.530549482892578*^9}, 
   3.5306025421313925`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"REM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"REP6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "-", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMM6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "-", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP1", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWTLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP2", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWBRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP3", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP4", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP5", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTRS", "+", "EXP2PIWBLS"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"IMP6", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"EXP2PIWTLS", "+", "EXP2PIWBRS"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REM6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REM6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<REP6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"REP6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMM6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMM6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP1\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP1", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP2\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP2", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP3\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP3", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP4\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP4", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP5\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP5", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<IMP6\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", 
  RowBox[{"IMP6", ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Monochrome\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BITWISEAND", "=", 
   RowBox[{
   "REM1", "*", "REM2", "*", "REM3", "*", "REM4", "*", "REM5", "*", "REM6", 
    "*", "REP1", "*", "REP2", "*", "REP3", "*", "REP4", "*", "REP5", "*", 
    "REP6", "*", "IMP1", "*", "IMP2", "*", "IMP3", "*", "IMP4", "*", "IMP5", 
    "*", "IMP6", "*", "IMM1", "*", "IMM2", "*", "IMM3", "*", "IMM4", "*", 
    "IMM5", "*", "IMM6"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "BITWISEAND", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"BITWISEAND", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "12"}], ")"}]}]}], ",", 
       RowBox[{"k", "++"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "k", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"k", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Length", "[", "BITWISEAND", "]"}], "^", "2"}], ")"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<=", 
    RowBox[{"Length", "[", "BITWISEAND", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BITWISEAND", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "12"}], ")"}]}]}], ",", 
     RowBox[{"Print", "[", "i", "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5306028353091617`*^9, 3.5306029147847075`*^9}, {
  3.530603723561967*^9, 3.5306040155056653`*^9}, {3.5306042312380047`*^9, 
  3.5306042758365555`*^9}, {3.5306054544979706`*^9, 3.5306054572261267`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"a", "=", 
  RowBox[{"RandomReal", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"2", "n"}], ",", 
      RowBox[{"2", "n"}]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.530683747466072*^9, 3.530683748788148*^9}, {
   3.530683783005105*^9, 3.530683807518507*^9}, {3.5306838909772806`*^9, 
   3.530683970267816*^9}, {3.5306849996216917`*^9, 3.530685003996942*^9}, {
   3.5306874443725233`*^9, 3.5306874567882338`*^9}, {3.530687494125369*^9, 
   3.5306875015817957`*^9}, {3.5306879577408867`*^9, 3.530687976636967*^9}, 
   3.53068820082879*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "0.896194563073371`", ",", "0.978529610036099`", ",", 
     "0.16549771333083596`", ",", 
     RowBox[{"-", "0.32054143278799785`"}], ",", "0.9262263963683095`", ",", 
     "0.9831145154383489`", ",", 
     RowBox[{"-", "0.039135729978287515`"}], ",", "0.06063935342555382`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.7549707552335758`", ",", "0.4786657678418229`", ",", 
     "0.30082532952343577`", ",", 
     RowBox[{"-", "0.5407519071901157`"}], ",", "0.5773437116507201`", ",", 
     RowBox[{"-", "0.24164839618533396`"}], ",", 
     RowBox[{"-", "0.3944290402014681`"}], ",", 
     RowBox[{"-", "0.6100998496461414`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.278961263193358`", ",", "0.007960441948984265`", ",", 
     "0.6667841416575384`", ",", 
     RowBox[{"-", "0.9299008071001458`"}], ",", "0.9802767931425089`", ",", 
     "0.8519335729692505`", ",", "0.4001377261819212`", ",", 
     "0.6628339738875133`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.36588844439496926`"}], ",", "0.7508369162765351`", ",", 
     RowBox[{"-", "0.606708498198377`"}], ",", "0.8735493565197978`", ",", 
     RowBox[{"-", "0.9100635331236626`"}], ",", 
     RowBox[{"-", "0.7745823254249831`"}], ",", "0.2793400928122485`", ",", 
     "0.03632426336395422`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8292216647687645`", ",", 
     RowBox[{"-", "0.08167563995337224`"}], ",", "0.3968759721363435`", ",", 
     "0.737787691868407`", ",", "0.3632601837689857`", ",", 
     RowBox[{"-", "0.7757657865802283`"}], ",", 
     RowBox[{"-", "0.04645457688626076`"}], ",", "0.48574523849950735`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.534328683031978`", ",", 
     RowBox[{"-", "0.01025127934798098`"}], ",", 
     RowBox[{"-", "0.32451590851711787`"}], ",", "0.7632937657506935`", ",", 
     "0.18390571000862588`", ",", 
     RowBox[{"-", "0.32257866166054505`"}], ",", 
     RowBox[{"-", "0.24558338725149564`"}], ",", 
     RowBox[{"-", "0.6041962959029967`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5293092511427968`"}], ",", "0.7684004417631338`", ",", 
     "0.3968840580196238`", ",", "0.1749688268446845`", ",", 
     RowBox[{"-", "0.610212371866468`"}], ",", 
     RowBox[{"-", "0.8484513591747294`"}], ",", 
     RowBox[{"-", "0.39400079808766275`"}], ",", 
     RowBox[{"-", "0.6600388347821164`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1907175668442611`", ",", "0.5312612899776181`", ",", 
     RowBox[{"-", "0.5016830450222289`"}], ",", 
     RowBox[{"-", "0.12054664105344104`"}], ",", 
     RowBox[{"-", "0.7195221882557137`"}], ",", 
     RowBox[{"-", "0.7069360977933168`"}], ",", "0.054877937615727124`", ",", 
     "0.21462425521864636`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5306839002728124`*^9, 3.530683971847906*^9}, 
   3.530685007658151*^9, 3.5306874576892853`*^9, 3.530687503178887*^9, {
   3.530688190930224*^9, 3.53068820309892*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"b", "=", 
   RowBox[{"Fourier", "[", 
    RowBox[{"a", ",", 
     RowBox[{"FourierParameters", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"-", "1"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"3", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{
     RowBox[{"n", "/", "2"}], "+", "1"}]}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"5", 
     RowBox[{"n", "/", "2"}]}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", 
      RowBox[{
       RowBox[{"n", "/", "2"}], "+", "1"}]}], ",", 
     RowBox[{"j", "\[LessEqual]", 
      RowBox[{"5", 
       RowBox[{"n", "/", "2"}]}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
       RowBox[{"b", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "-", 
           RowBox[{"n", "/", "2"}]}], ",", 
          RowBox[{"j", "-", 
           RowBox[{"n", "/", "2"}]}]}], "]"}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "c", "]"}]}], "Input",
 CellChangeTimes->{{3.5306839811574388`*^9, 3.5306840096690693`*^9}, 
   3.530685102416571*^9, {3.530685469388561*^9, 3.5306854704526215`*^9}, {
   3.530685743485238*^9, 3.530685765301486*^9}, 3.530685818903552*^9, {
   3.5306874776654277`*^9, 3.5306877408394804`*^9}, {3.530687927366149*^9, 
   3.5306879440151014`*^9}, {3.5306879909437857`*^9, 
   3.5306880054326143`*^9}, {3.5306880356253414`*^9, 3.530688043209775*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"5.30162745648273`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.77250833037505`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.341524266301355`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.2716995151660724`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.3651220532155`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.1765441325465775`"}], "-", 
       RowBox[{"3.583109188850692`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.6766195223885179`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.1765441325465775`"}], "+", 
       RowBox[{"3.583109188850692`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.2716995151660724`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.3651220532155`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.77250833037505`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.341524266301355`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"1.7489258673016956`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.108995491604605`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.271834868176887`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.3511283891927395`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.017681146425391786`"}], "-", 
       RowBox[{"6.920402554063236`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.353517548003661`", "\[InvisibleSpace]", "+", 
       RowBox[{"4.208734683518574`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.492857338625568`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.4711910503038323`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "4.570921103208508`"}], "-", 
       RowBox[{"1.108064359039438`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.1457869699354384`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.281921489161451`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.491758032250441`"}], "-", 
       RowBox[{"0.7987961853296616`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"4.342291919073782`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.0736780917755606`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.9430304251853145`"}], "+", 
       RowBox[{"2.835382818130748`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.388894955171991`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.353426861787673`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.181699039676451`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.7537041171335188`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.26203733189429634`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.857873838626377`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.0621483051697724`"}], "-", 
       RowBox[{"0.1635186051834756`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"5.587521292471245`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.136243043230326`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.0488479183999155`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.7872992130760874`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"1.7341346152664765`", "\[InvisibleSpace]", "+", 
       RowBox[{"4.132497297009915`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "6.554746600141482`"}], "-", 
       RowBox[{"0.049036352656605`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.006093590877552623`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.6536774914400957`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.19350408496882`"}], "-", 
       RowBox[{"1.219521539006543`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.352399025168156`"}], "+", 
       RowBox[{"2.138509310092169`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.612060064682716`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.2848886710081524`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.2817946768182592`", "\[InvisibleSpace]", "+", 
       RowBox[{"4.354080712288844`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.605570825348249`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.6210774563853672`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"8.251867651483224`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.8191335423736343`"}], "+", 
       RowBox[{"1.116627728447758`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.09563804530211062`"}], "-", 
       RowBox[{"1.9799815199686615`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.5147617015373966`"}], "+", 
       RowBox[{"6.18019370665562`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.4947163603658664`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.5147617015373966`"}], "-", 
       RowBox[{"6.18019370665562`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.09563804530211062`"}], "+", 
       RowBox[{"1.9799815199686615`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.8191335423736343`"}], "-", 
       RowBox[{"1.116627728447758`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"1.7341346152664765`", "\[InvisibleSpace]", "-", 
       RowBox[{"4.132497297009915`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.605570825348249`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.6210774563853672`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.2817946768182592`", "\[InvisibleSpace]", "-", 
       RowBox[{"4.354080712288844`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.612060064682716`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.2848886710081524`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.352399025168156`"}], "-", 
       RowBox[{"2.138509310092169`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.19350408496882`"}], "+", 
       RowBox[{"1.219521539006543`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.006093590877552623`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.6536774914400957`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "6.554746600141482`"}], "+", 
       RowBox[{"0.04903635265660492`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"4.342291919073782`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.0736780917755606`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.0488479183999155`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.7872992130760874`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"5.587521292471245`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.136243043230326`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.0621483051697724`"}], "+", 
       RowBox[{"0.1635186051834756`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.26203733189429634`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.857873838626377`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.181699039676451`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.7537041171335188`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.388894955171991`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.353426861787673`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.9430304251853145`"}], "-", 
       RowBox[{"2.835382818130748`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"1.7489258673016956`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.108995491604605`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.491758032250441`"}], "+", 
       RowBox[{"0.7987961853296617`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.1457869699354384`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.281921489161451`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "4.570921103208508`"}], "+", 
       RowBox[{"1.108064359039438`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.492857338625568`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.4711910503038323`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.353517548003661`", "\[InvisibleSpace]", "-", 
       RowBox[{"4.208734683518574`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.017681146425391786`"}], "+", 
       RowBox[{"6.920402554063236`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.271834868176887`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.3511283891927395`", " ", "\[ImaginaryI]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5306839875348034`*^9, 3.5306840105151176`*^9}, 
   3.5306851046696997`*^9, 3.5306854716416893`*^9, 3.5306857664595523`*^9, 
   3.5306858205596466`*^9, 3.530687461539505*^9, 3.53068770988571*^9, 
   3.5306877427395887`*^9, 3.530687945410181*^9, 3.530688010148884*^9, 
   3.530688044089825*^9, {3.5306881957144976`*^9, 3.5306882050880337`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"5.30162745648273`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.77250833037505`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.341524266301355`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.2716995151660724`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.3651220532155`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.1765441325465775`"}], "-", 
       RowBox[{"3.583109188850692`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.6766195223885179`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.1765441325465775`"}], "+", 
       RowBox[{"3.583109188850692`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.2716995151660724`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.3651220532155`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.77250833037505`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.341524266301355`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"1.7489258673016956`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.108995491604605`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.271834868176887`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.3511283891927395`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.017681146425391786`"}], "-", 
       RowBox[{"6.920402554063236`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.353517548003661`", "\[InvisibleSpace]", "+", 
       RowBox[{"4.208734683518574`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.492857338625568`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.4711910503038323`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "4.570921103208508`"}], "-", 
       RowBox[{"1.108064359039438`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.1457869699354384`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.281921489161451`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.491758032250441`"}], "-", 
       RowBox[{"0.7987961853296616`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"4.342291919073782`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.0736780917755606`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.9430304251853145`"}], "+", 
       RowBox[{"2.835382818130748`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.388894955171991`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.353426861787673`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.181699039676451`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.7537041171335188`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.26203733189429634`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.857873838626377`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.0621483051697724`"}], "-", 
       RowBox[{"0.1635186051834756`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"5.587521292471245`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.136243043230326`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.0488479183999155`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.7872992130760874`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"1.7341346152664765`", "\[InvisibleSpace]", "+", 
       RowBox[{"4.132497297009915`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "6.554746600141482`"}], "-", 
       RowBox[{"0.049036352656605`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.006093590877552623`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.6536774914400957`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.19350408496882`"}], "-", 
       RowBox[{"1.219521539006543`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.352399025168156`"}], "+", 
       RowBox[{"2.138509310092169`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.612060064682716`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.2848886710081524`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.2817946768182592`", "\[InvisibleSpace]", "+", 
       RowBox[{"4.354080712288844`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.605570825348249`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.6210774563853672`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"8.251867651483224`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.8191335423736343`"}], "+", 
       RowBox[{"1.116627728447758`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.09563804530211062`"}], "-", 
       RowBox[{"1.9799815199686615`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.5147617015373966`"}], "+", 
       RowBox[{"6.18019370665562`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.4947163603658664`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.5147617015373966`"}], "-", 
       RowBox[{"6.18019370665562`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.09563804530211062`"}], "+", 
       RowBox[{"1.9799815199686615`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.8191335423736343`"}], "-", 
       RowBox[{"1.116627728447758`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"1.7341346152664765`", "\[InvisibleSpace]", "-", 
       RowBox[{"4.132497297009915`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.605570825348249`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.6210774563853672`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.2817946768182592`", "\[InvisibleSpace]", "-", 
       RowBox[{"4.354080712288844`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.612060064682716`", "\[InvisibleSpace]", "-", 
       RowBox[{"1.2848886710081524`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.352399025168156`"}], "-", 
       RowBox[{"2.138509310092169`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.19350408496882`"}], "+", 
       RowBox[{"1.219521539006543`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.006093590877552623`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.6536774914400957`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "6.554746600141482`"}], "+", 
       RowBox[{"0.04903635265660492`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"4.342291919073782`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.0736780917755606`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"2.0488479183999155`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.7872992130760874`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"5.587521292471245`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.136243043230326`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.0621483051697724`"}], "+", 
       RowBox[{"0.1635186051834756`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.26203733189429634`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.857873838626377`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.181699039676451`", "\[InvisibleSpace]", "+", 
       RowBox[{"1.7537041171335188`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.388894955171991`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.353426861787673`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.9430304251853145`"}], "-", 
       RowBox[{"2.835382818130748`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"1.7489258673016956`", "\[InvisibleSpace]", "+", 
       RowBox[{"5.108995491604605`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.491758032250441`"}], "+", 
       RowBox[{"0.7987961853296617`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.1457869699354384`", "\[InvisibleSpace]", "-", 
       RowBox[{"5.281921489161451`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "4.570921103208508`"}], "+", 
       RowBox[{"1.108064359039438`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.492857338625568`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.4711910503038323`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.353517548003661`", "\[InvisibleSpace]", "-", 
       RowBox[{"4.208734683518574`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.017681146425391786`"}], "+", 
       RowBox[{"6.920402554063236`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"4.271834868176887`", "\[InvisibleSpace]", "-", 
       RowBox[{"2.3511283891927395`", " ", "\[ImaginaryI]"}]}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5306839875348034`*^9, 3.5306840105151176`*^9}, 
   3.5306851046696997`*^9, 3.5306854716416893`*^9, 3.5306857664595523`*^9, 
   3.5306858205596466`*^9, 3.530687461539505*^9, 3.53068770988571*^9, 
   3.5306877427395887`*^9, 3.530687945410181*^9, 3.530688010148884*^9, 
   3.530688044089825*^9, {3.5306881957144976`*^9, 3.530688205159038*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", "6", "}"}], ",", 
     RowBox[{"{", "6", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "d", "]"}]}], ",", 
   RowBox[{"i", "+=", "2"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "0"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{
       RowBox[{"Length", "[", "d", "]"}], "-", "i"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "j"}], ",", 
          RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"-", 
        RowBox[{"d", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "j"}], ",", 
           RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"d", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"j", "+", "1"}], ",", 
          RowBox[{"i", "+", "j"}]}], "]"}], "]"}], "=", 
       RowBox[{"-", 
        RowBox[{"d", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"j", "+", "1"}], ",", 
           RowBox[{"i", "+", "j"}]}], "]"}], "]"}]}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPlot", "[", "d", "]"}]}], "Input",
 CellChangeTimes->{{3.5306862109959784`*^9, 3.530686239924633*^9}, {
  3.5306862898154864`*^9, 3.5306863494568977`*^9}, {3.530686395203514*^9, 
  3.5306865150793705`*^9}, {3.5306865538325872`*^9, 3.5306865843453326`*^9}, {
  3.530686624563633*^9, 3.530686689101324*^9}}],

Cell[BoxData[
 GraphicsBox[
  RasterBox[{{{0.26048676279850463`, 0.13684290836957352`, 
   0.8915693904020753}, {1., 0.4312504768444343, 0.}, {0.26048676279850463`, 
   0.13684290836957352`, 0.8915693904020753}, {1., 0.4312504768444343, 0.}, {
   0.26048676279850463`, 0.13684290836957352`, 0.8915693904020753}, {1., 
   0.4312504768444343, 0.}}, {{1., 0.4312504768444343, 0.}, {
   0.26048676279850463`, 0.13684290836957352`, 0.8915693904020753}, {1., 
   0.4312504768444343, 0.}, {0.26048676279850463`, 0.13684290836957352`, 
   0.8915693904020753}, {1., 0.4312504768444343, 0.}, {0.26048676279850463`, 
   0.13684290836957352`, 0.8915693904020753}}, {{0.26048676279850463`, 
   0.13684290836957352`, 0.8915693904020753}, {1., 0.4312504768444343, 0.}, {
   0.26048676279850463`, 0.13684290836957352`, 0.8915693904020753}, {1., 
   0.4312504768444343, 0.}, {0.26048676279850463`, 0.13684290836957352`, 
   0.8915693904020753}, {1., 0.4312504768444343, 0.}}, {{1., 
   0.4312504768444343, 0.}, {0.26048676279850463`, 0.13684290836957352`, 
   0.8915693904020753}, {1., 0.4312504768444343, 0.}, {0.26048676279850463`, 
   0.13684290836957352`, 0.8915693904020753}, {1., 0.4312504768444343, 0.}, {
   0.26048676279850463`, 0.13684290836957352`, 0.8915693904020753}}, {{
   0.26048676279850463`, 0.13684290836957352`, 0.8915693904020753}, {1., 
   0.4312504768444343, 0.}, {0.26048676279850463`, 0.13684290836957352`, 
   0.8915693904020753}, {1., 0.4312504768444343, 0.}, {0.26048676279850463`, 
   0.13684290836957352`, 0.8915693904020753}, {1., 0.4312504768444343, 
   0.}}, {{1., 0.4312504768444343, 0.}, {0.26048676279850463`, 
   0.13684290836957352`, 0.8915693904020753}, {1., 0.4312504768444343, 0.}, {
   0.26048676279850463`, 0.13684290836957352`, 0.8915693904020753}, {1., 
   0.4312504768444343, 0.}, {0.26048676279850463`, 0.13684290836957352`, 
   0.8915693904020753}}}, {{0, 0}, {6, 6}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{5.5, 
       FormBox["1", TraditionalForm]}, {4.5, 
       FormBox["2", TraditionalForm]}, {3.5, 
       FormBox["3", TraditionalForm]}, {2.5, 
       FormBox["4", TraditionalForm]}, {1.5, 
       FormBox["5", TraditionalForm]}, {0.5, 
       FormBox["6", TraditionalForm]}}, {{5.5, 
       FormBox["1", TraditionalForm]}, {4.5, 
       FormBox["2", TraditionalForm]}, {3.5, 
       FormBox["3", TraditionalForm]}, {2.5, 
       FormBox["4", TraditionalForm]}, {1.5, 
       FormBox["5", TraditionalForm]}, {0.5, 
       FormBox["6", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {1.5, 
       FormBox["2", TraditionalForm]}, {2.5, 
       FormBox["3", TraditionalForm]}, {3.5, 
       FormBox["4", TraditionalForm]}, {4.5, 
       FormBox["5", TraditionalForm]}, {5.5, 
       FormBox["6", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {1.5, 
       FormBox["2", TraditionalForm]}, {2.5, 
       FormBox["3", TraditionalForm]}, {3.5, 
       FormBox["4", TraditionalForm]}, {4.5, 
       FormBox["5", TraditionalForm]}, {5.5, 
       FormBox["6", TraditionalForm]}}}}]], "Output",
 CellChangeTimes->{
  3.530686240938691*^9, 3.5306863504149523`*^9, {3.5306864645134783`*^9, 
   3.5306864854376755`*^9}, 3.5306865158984175`*^9, {3.5306865612770133`*^9, 
   3.530686585221383*^9}, {3.5306866626498117`*^9, 3.5306866898233657`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "H", "]"}]], "Input",
 CellChangeTimes->{{3.5306970477928076`*^9, 3.530697051754034*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.530697052801094*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"15.`", 
       RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
       RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
       RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "15.`", 
       RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
       RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
       RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "15.`", 
       RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]},
      {
       RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
       RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], 
       RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], "15.`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]}]], "Input",
 CellChangeTimes->{{3.530697300509262*^9, 3.5306973029344006`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"15.`", ",", 
     RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", "15.`", ",", 
     RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", "15.`", ",", 
     RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"11.29455641418533`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"13.330704256005838`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"12.496056384008755`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", "15.`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5306973058975706`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Depth", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.5306973096797867`*^9, 3.530697325547694*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.5306973152491055`*^9, 3.530697326744763*^9}}]
}, Open  ]]
},
WindowSize->{1264, 588},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 3683, 107, 137, "Input"],
Cell[CellGroupData[{
Cell[4298, 134, 168, 3, 23, "Print"],
Cell[4469, 139, 167, 3, 23, "Print"],
Cell[4639, 144, 169, 3, 23, "Print"],
Cell[4811, 149, 72, 1, 23, "Print"],
Cell[4886, 152, 167, 3, 23, "Print"],
Cell[5056, 157, 167, 3, 23, "Print"],
Cell[5226, 162, 166, 3, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5441, 171, 58662, 1460, 5816, "Input"],
Cell[64106, 1633, 377, 6, 30, "Output"],
Cell[64486, 1641, 380, 6, 30, "Output"],
Cell[64869, 1649, 381, 6, 30, "Output"],
Cell[CellGroupData[{
Cell[65275, 1659, 375, 6, 23, "Print"],
Cell[65653, 1667, 374, 6, 23, "Print"],
Cell[66030, 1675, 377, 6, 23, "Print"],
Cell[66410, 1683, 377, 6, 23, "Print"]
}, Open  ]],
Cell[66802, 1692, 377, 6, 30, "Output"],
Cell[67182, 1700, 2312, 49, 86, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69531, 1754, 2896, 71, 272, "Input"],
Cell[72430, 1827, 932, 28, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73399, 1860, 179, 5, 31, "Input"],
Cell[73581, 1867, 1991, 44, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75609, 1916, 2047, 49, 152, "Input"],
Cell[77659, 1967, 5733, 100, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[83395, 2069, 5733, 100, 369, 3371, 60, "CachedBoxData", "BoxData", \
"Output"],
Cell[89131, 2171, 5935, 104, 369, 3532, 63, "CachedBoxData", "BoxData", \
"Output"],
Cell[95069, 2277, 5937, 104, 369, 3532, 63, "CachedBoxData", "BoxData", \
"Output"],
Cell[101009, 2383, 5599, 99, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"],
Cell[106611, 2484, 5599, 99, 369, 3139, 57, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112247, 2588, 1548, 47, 192, "Input"],
Cell[113798, 2637, 6832, 119, 369, 3810, 68, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120667, 2761, 1821, 52, 192, "Input"],
Cell[122491, 2815, 319, 4, 30, "Output"],
Cell[122813, 2821, 317, 4, 30, "Output"],
Cell[123133, 2827, 323, 4, 30, "Output"],
Cell[123459, 2833, 337, 4, 30, "Output"],
Cell[CellGroupData[{
Cell[123821, 2841, 146, 3, 23, "Print"],
Cell[123970, 2846, 148, 3, 23, "Print"],
Cell[124121, 2851, 148, 3, 23, "Print"],
Cell[124272, 2856, 148, 3, 23, "Print"],
Cell[124423, 2861, 148, 3, 23, "Print"],
Cell[124574, 2866, 148, 3, 23, "Print"],
Cell[124725, 2871, 148, 3, 23, "Print"],
Cell[124876, 2876, 146, 3, 23, "Print"],
Cell[125025, 2881, 148, 3, 23, "Print"],
Cell[125176, 2886, 149, 3, 23, "Print"],
Cell[125328, 2891, 147, 3, 23, "Print"],
Cell[125478, 2896, 147, 3, 23, "Print"],
Cell[125628, 2901, 147, 3, 23, "Print"],
Cell[125778, 2906, 149, 3, 23, "Print"],
Cell[125930, 2911, 146, 3, 23, "Print"],
Cell[126079, 2916, 146, 3, 23, "Print"],
Cell[126228, 2921, 149, 3, 23, "Print"],
Cell[126380, 2926, 147, 3, 23, "Print"],
Cell[126530, 2931, 147, 3, 23, "Print"],
Cell[126680, 2936, 149, 3, 23, "Print"],
Cell[126832, 2941, 150, 3, 23, "Print"],
Cell[126985, 2946, 148, 3, 23, "Print"],
Cell[127136, 2951, 150, 3, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[127313, 2958, 11440, 301, 1672, "Input"],
Cell[CellGroupData[{
Cell[138778, 3263, 743, 18, 52, "Input"],
Cell[139524, 3283, 3042, 65, 145, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142603, 3353, 2017, 56, 172, "Input"],
Cell[144623, 3411, 9143, 180, 146, "Output"],
Cell[153769, 3593, 9569, 184, 206, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163375, 3782, 1820, 51, 152, "Input"],
Cell[165198, 3835, 3344, 58, 388, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168579, 3898, 127, 2, 31, "Input"],
Cell[168709, 3902, 70, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168816, 3908, 2095, 45, 76, "Input"],
Cell[170914, 3955, 1698, 36, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172649, 3996, 126, 2, 31, "Input"],
Cell[172778, 4000, 96, 1, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
